chamar uma procedure

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

Button1Click(Sender);

end;