Valeu Alisson, deu certo. Obrigado
-- Gildenor Teixeira 2009/4/24 Alisson <alss...@yahoo.com.br> > > > procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); > begin > ShowMessage(Key); > end; > > procedure TForm1.Button1Click(Sender: TObject); > var Key : Char; > begin > Key := #65; > FormKeyPress(Self, Key); > end; > __________________________________________________ > Faça ligações para outros computadores com o novo Yahoo! Messenger > http://br.beta.messenger.yahoo.com/ > > -- [As partes desta mensagem que não continham texto foram removidas]