Como Chamar O Onkeypress

[Vivendo&Aprendendo]

Galera como faço para chamar o evento OnKeyPress dentro do evento OnExit de um edit?

Alexandre

[s3c]

procedure TForm1.Edit1Exit(Sender: TObject);
var Key:Char;
begin
  Key := #0;
  Edit1KeyPress(Sender, Key);
end;