как выполнить один и тот же код для двух разных событий

[puz]

Как сделать так, чтобы после введения данных в Edit1 при нажатии Enter, начал выполняться тот же код, что и по нажатию Button1?

К примеру по нажатию Button1 происходит следующее:


procedure TForm1.Button1Click(Sender: TObject);
var
a:Currency;
result:Currency;
begin
if Length(Edit1.Text)=0 then begin
Application.MessageBox('Вы не ввели число', 'Ошибка', MB_OK);
exit;
end;
a:= StrToCurr(Edit1.Text);
result:=a*5;
Label2.Caption:=CurrToStr(result);
end;
end.


Как должен выглядеть код события OnKeyPress для Edit1 в этой же проге, если в результате я хочу получить то же самое? Не переписывать же этот же самый код. Ведь есть способ проще?

[Viteef]

Вызывай процедуру

Form1.Button1.Click;

и все..

[puz]

Так просто, оказывается.
Спасибо.

[Killer_djon]

а если именнь понажатию на Enter то надо так:

if key = VK_RETURN then
прописываешь событие по нажатию твоей кнопки
...
Button1.Click;

[Voland]

А быстрее будет просто вызвать Button1Click(Button1);

[Shuraken]

procedure TfrmMain.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
Button1Click(Button1);
end;