Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID

PESQUISAR DICA:

CONVERTER PRIMEIRA LETRA PARA MAIUSCULA EM UM TEXTO

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  i: Integer;
  s: String;
const
  b: bool = False;
begin
  Edit2.Text := AnsiLowerCase(Edit1.Text);
  for i := 1 to Length(Edit2.Text) do
  begin
    if (i = 1) or (b) then
      if Edit2.Text[i] in ['a'..'z'] then
      begin
        s := Edit2.Text;
        s[i] := UpCase(s[i]);
        Edit2.Text := s;
        b := False;
      end;
    if (Edit2.Text[i] = ' ') then b := True
  end;
end;