Se hvad hvert ord i en sætning er - 2

Jeg kunne ikke rigtig se meningen i den kode, som dkn gav mig i et tidligere spørgsmål... Jeg prøvede koden

procedure TForm1.Button1Click(Sender: TObject);
var
st, ord1, ord2, ord3:String;
begin
st := 'SENDMSG ORD1 ORD2 ORD3';
st := copy(st, pos(' ', st)+1, length(st));
ord1 := (copy(st, 0, pos(' ', st)-1));
st := copy(st, pos(' ', st)+1, length(st));
ord2 := (copy(st, 0, pos(' ', st)-1));
st := copy(st, pos(' ', st)+1, length(st));
ord3 := (copy(st, 0, pos(' ', st)-1));
showmessage(ord1+'...'+ord2+'...'+ord3);
end;

Men det virker ikke så godt.
Jeg vil også gerne kunne se det allerførste ord i en sætning. Og kunne se teksten fra et bestemt punkt, fx fra ord1 og så alle ord som der kommer derefter.