Вырезать из строки string слово

[sasha1993]

Как можно сохранить в переменную типа string одно слово из строки
текстового документа?
У меня сохраняет всю строку сразу а не слово.

[Greblin]

1. Считывать посимвольно до пробела или знака препинания.
2. Считать всю строку. Функцией Pos получить позицию первого пробела (знака препинания), функцией Copy скопировать нужную часть

[zotox]

 s:=copy('Мыло упало',0,4);
//'Мыло упало'-откуда будем вырезать,
//0-от какого символа будем вырезать,
//4-скоко символов будем вырезать от указанного числа (то есть от нуля(в нашем случае))

 s2:=copy('Мыло упало',pos(' '),length('Мыло упало')-pos(' '));
//pos-определяет где указанный сивол находится... если определил где он находится то возвращает integer (там где он находится),
//length - определяет скоко символов в указанном классе (в нашем случае это стринг) и возвращает integer тоже

 ShowMessage('Что сделалось-'+s2+', упало что?-'+s);

Точно не проверял но должно работать
Гугли на функции/процедуры: length,copy,pos

[Terran]

Вот написал по быстрому:

Procedure TForm1.Button1Click(Sender: TObject);
Var
S: TStringList;
I: Integer;
Begin
S:=TStringList.Create;
S.LoadFromFile('C:\1.txt');
For I:=0 To Length(S.Strings[0]) Do
Begin
If (S.Text[I] = ' ') Or (S.Text[I] = ',') Or (S.Text[I] = '.') Then
Begin
Break;
End;
Edit1.Text:=Edit1.Text+S.Text[I];
End;
End;

Забирается из строки первое слово. Правда этот вариант не очень хороший, но если понадобится, то доработайте его