Здравствуйте, source!
В приложении - функция определения слова в сроке по его номеру.
Использование:
Str - строка;
Smb - разделитель слов (например пробел: ' ')
WordNmbr - номер слова.
Пример использования:
word[1]:= GetWord('Мама мыла раму'; ' '; 1);
Возвратит word[1] равное 'Мама'.

Приложение:
function GetWord(Str, Smb: string; WordNmbr: Byte): string;
var
SWord: string;
StrLen, N: Byte;
begin

StrLen := SizeOf(Str);
N := 1;

while ((WordNmbr >= N) and (StrLen <> 0)) do
begin
StrLen := Pos(Smb, str);
if StrLen <> 0 then
begin
SWord := Copy(Str, 1, StrLen - 1);
Delete(Str, 1, StrLen);
Inc(N);
end
else
SWord := Str;
end;

if WordNmbr <= N then
Result := SWord
else
Result := '';
end;