Вариант простого поиска последнего слова в строке или строках - 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;
Возврат к списку