Как передать фокус ввода в поле Edit

[Serge_Bliznykov]

А можно ли как-то сократить этот код, для случая если edit-ов много?

а зачем? если работа кода для одно эдита Вас устраивает, тогда выделите все эдиты и назначьте им все один и тот же код (обработчик).

только чуток подкорректируйте его, чтобы он (обработчик) работал с тем эдитом, на которой щёлкнули. для этого используем объект Sender:

procedure TForm1.Edit1Click(Sender: TObject);
begin
  if Not (Sender is TEdit) then Exit; {защита от того, что обработчик повесите на левый контрол, не TEdit...}
  TEdit(Sender).tag := TEdit(Sender).tag + 1;
  if  TEdit(Sender).tag = 1 then
         TEdit(Sender).SelectAll;
end;

[Raf-9600]

Serge_Bliznykov, благодарю. Я просто про Sender мало знаю...
Но компилятор почему-то ругаеться на эту строчку:

TEdit(Sender).tag:=TEdit(Sender)+1;

Говорит: [Error] MainModule.pas(1591): Incompatible types

[Zer0]

TEdit(Sender).Tag+1;

[Serge_Bliznykov]

Zer0, ага. точно. спасибо.
я опечатался... поправил в исходном сообщении

[Raf-9600]

Zer0, благодарю