Wort in einem String suchen

[nailor]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  test: string = 'hallo du!';
var
  i: integer;
begin
for i := length(test) downto 1 do
  begin
    if test[i] = ' ' then
      begin
        Button1.Caption := Copy(test,i,length(test)-i+1);
        break;
      end;
  end;
end;