[bajge]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 str, st: string;
begin
 str:= Edit1.Text;
 while length(str)<>0 do
   begin
    if Pos(' ', str)<> 0 then
     begin
       st:= Copy(str,1,Pos(' ', str)-1);
       delete(str, 1, Pos(' ', str));
       Memo1.Lines.Add('Длина слова : '+ st +'  '+InttoStr(Length(st))+'  знак.');
     end;
    if Pos(' ', str)= 0 then
      begin
       st:= Copy(str,1,Length(str));
       delete(str, 1, Length(str));
       Memo1.Lines.Add('Длина слова : '+ st +'  '+InttoStr(Length(st))+'  знак.');
      end;
   end;
end; 

lmikle: Пользуемся тегами!!!

так ?? а как вывести это в форму?