[Reasen]

Código Delphi [-]
var
  lol: string;
  i: integer;
begin
  lol := 'test1 test2 test3';
  i := 1;

  repeat
    inc(i);
  until copy(lol, i, 1) = ' ';

  txt1.Text := copy(lol, 1, i - 1);

Algo rápido que hice, no sé si te servirá, puedes usarlo como ejemplo.