Fácil mas eu não sei! Digitar apenas maíscula em todos os...

Se você quer usar num TEdit, existe uma propriedade CharCase que você escolhe se é para ser Nomal, minúsculas ou MAIÚSCULAS...
não tenho certeza mas acho que TRichEdit, TMemo também usam ... e todos os componentes derivados.. então . de uma olhadinha que provavelmente você vai achar. qualquer coisa.. mensagem ai ...
abraços...

Outra solução é a seguinte:

coloque as seguintes linhas de código no evento OnKeyPress do componente que receberá o texto:

if not (Key in[´A´..´Z´]) then
Key := #0;

para aceitar minusculas também faça o seguinte:

if not (Key in[´A´..´Z´, ´a´..´z´]) then
Key := 0;

Valeu zerneo, muito obrigado!

{FormKeyPress:=True}
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Key := AnsiUpperCase(Key)[Length(Key)];
end;

Renato

Caso queira jogar uma string em MAIÚSCULAS :
edit.text := UpperCase(variavel ou valor)