{
Extract word number Num of Data with delimeters in Delims.
}
function ExtractWordDelims(Num:Integer;Data,Delims:String):String;
begin
 Delims:=WordDelims(Delims);
 Data:=ExtractWord(Num,Data);
 Delims:=WordDelims(Delims);
 ExtractWordDelims:=Data;
end;
{
Extract word with space and tab delimeters.
}
function ExtractWordSpaces(Num:Integer;Data:String):String;
begin
 ExtractWordSpaces:=ExtractWordDelims(Num,Data,Dump(' ')+Dump(Chr(9)));
end;
