Нажатие Enter

[Alana]

На форме есть два текстовых поля Edit1 и Edit2, необходимые для поиска по разным параметра в таблице базы данных. Для каждого поля есть отдельная кнопка поиска Button1 и Button2, которые ищут данные в базе по тексту из текстовых полей. Нужно сделать: если в поле Edit1 имеется текст, то при нажатии на Enter происходил поиск для кнопки Button1. Если же данные есть в поле Edit2, то, соответственно, выполнялось действие из кнопки Button2. Если же в обоих полях есть записи, то их очищать.
Для теста нажатия на кнопку сделала процедуру:

procedure TAbonentsForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
ShowMessage('111');
end;

Но не работает. Что я делаю не так?

[_SERGEYX_]

Нужно обрабатывать KeyDown Edit-ов

procedure TfrmMain.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 13 then Button1.Click;
//Edit2.clear; ?????
end;

P.S. или один код на оба Edit-a

if key = 13 then
begin
if (Sender as TEdit).Name = 'Edit1' then Button1.Click;
if (Sender as TEdit).Name = 'Edit2' then Button2.Click;
end;

[new player]

if key = #13 then ShowMessage('111');

#13 - это Enter

[Alana]

Всё получилось
Всем спасибо

[XeruH]

Если обрабатывать для каждого едита, то условие

Если же в обоих полях есть записи, то их очищать

теряет смысл. Если надо чтобы поиск происходил вне зависимости от того какой контрол имеет фокус, то можно выставить свойство формы KeyPreview в True и обрабатывать нажатие клавиш в событии формы (как в 1 сообщении ТС).