[Delphi] wycinanie od spacji do spacji

jak w tekscie "jestes porabany idioto"
wyodrebnic slowo porąbany?

chodzimi tu o coś w stylu znalezienia jednej spacji :) a potem usunąc wszystko do tej sapcji i potem znalezc następną spację i usunąć wsyzstko po tej drugiej spacji :)

s: string;
p: integer;

s:='jesteś porąbany idioto';
p:=Pos(' ', s);
Delete(s, 1, p);
p:=Pos(' ', s);
Delete(s, p, 255)

var s:string;
begin
s := 'jestes porabany idioto';
while not (s[length(s)] = #32) do delete(s,length(s),1);
delete(s,length(s),1);
while not (s[1] = #32) do delete(s,1,1);
delete(s,1,1);
end;