Вариант простого поиска последнего слова в строке или строках - Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
S, sWord : String;
i, Len : Integer;

begin

//Удаляем пробелы справа.

S := TrimRight(Memo1.Text);

//Добавляем пробел слева.
S := ' ' + S;

Len := Length(S);

//Находим индекс разделителя, стоящего непосредственно слева от первой буквы последнего слова.

for i := Len downto 1 do begin
if S[i] in [#9, #10, #13, #32] then Break;
end;

//Последнее слово.
sWord := Copy(S, i, Len - i + 1);
ShowMessage(sWord);
end;

Возврат к списку

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.