procedure TForm1.BitBtn1Click(Sender: TObject);
begin
linea := 'UNO DOS TRES CUATRO CINCO SEIS SIETE OCHO';
repeat
indice := pos(' ',linea);
dato := copy(linea,1,indice);
delete(linea,1,indice);
if (dato <> ' ') and
(dato <> '') then begin
memo1.Lines.Add(dato);
end;
until indice = 0;
memo1.Lines.Add(linea);
end;