procedure TForm1.Button3Click(Sender: TObject);
 var s:string;
 i,k,n:integer;
begin
 s:=memo1.Text;
i:=1;
n:=length(s);
while i<=n do begin
  if s[1]=s[i] then s[i]:= UpCase(s[i]);
  if s[i]=(' ') then
  begin
    if i+1<=n then s[i+1]:=UpCase(s[i+1]);
    n:=n+1;
  end;
  i:=i+1;
end;
 memo2.Text:=s;
 memo2.Font.Name:='Times New Roman';
 memo2.Font.Size:=15;
 memo2.Font.Color:=clBlue;
end;