Limpar o buffer do teclado e mouse

procedure EmptyKeyQueue;
var Msg: TMsg;
begin
while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do;
end;

procedure EmptyMouseQueue;
var Msg: TMsg;
begin
while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE or PM_NOYIELD) do;
end;

Converte a primeira letra em maiúscula

Coloque o código no envento onKeyPress de um Edit.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin
       with Sender as TEdit do
            if (SelStart = 0) or (Text[SelStart] = ‘ ‘) then
                 if Key in [‘a’..’z’] then Key := UpCase(Key);end;