[rgstuamigo]

Y que tal si se pone el siguiente código en el evento OnKeyPress del Edit en cuestión.

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
   begin
      with Sender as TEdit do
         if (Text = '')
         or (Text[SelStart] = ' ')
         or (SelLength = Length(Text)) then
            if Key in ['a'..'z'] then  Key := UpCase(Key);
   end;

.
Saludos...