Delphi - Como encontrar la palabra mas larga de una cadena

Bien me salta la duda de que el codigo puede ser mucho mas facil con delphi...por eso pregunto a los maestros... ¿como puedo encontrar la palabra mas larga de una cadena? ej:

los maestros de la web del programador son los mejores.

palabra mas larga : programador

Hay que agregar la unidad StrUtils

procedure TForm1.Button1Click(Sender: TObject);
var cadena, cadena2, palabra:string;
i, j:integer;
begin
cadena := 'palabra mas larga : programador';
i:=1;
while (i<>0) do begin
j := PosEx(' ', cadena, i);
cadena2 := copy(cadena, i, j-i);
if j=0 then
cadena2 := copy(cadena, i, length(cadena));
if i = 1 then
palabra := cadena2
else begin
if length(cadena2)>=length(palabra) then
palabra := cadena2;
end;
i := PosEx(' ', cadena, i)+1;
if j=0 then
i:=0;
end;
ShowMessage(palabra);
end;

Brother....muchas gracias sabia que por aqui era mas facillllll........de veras gracias,,,.solo he dado una leida ahora a probarlo....