vsa1

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
    str, ss: string;
    r:set of char;
begin
  memo1.Clear;
  str := edit1.Text + ' ';
  r:=['(',')',' ',',','.',':',';','!','?','$','#','*','/','+','-','='];
  ss:='';
  {for i := 1 to length(str) do
    memo1.Lines.Add(str[i]);}
  for i:=1 to length(str) do
  begin
   if (str[i] in r) then
   begin
      if(ss <> ' ') and (ss <> '') then begin  memo1.Lines.Add(ss); ss := ''; end;
      if(str[i] <> ' ') then memo1.Lines.Add(str[i]);
   end
   else ss := ss + str[i];
  end;
end;

end.