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

[Arassir]

При нажатии на кнопку фокус должен переместиться в поле Edit

[alex_fcsm]

вроде Edit1.SetFocused(boolean) должно быть свойство

[puporev]

Edit1.SetFocus;

[eltorna]

puporev

а как бы реализовать следующее:

procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.SelectAll;
end;

то биш при первом клике Edit получает фокус и при этом выделяется весь текст, при последующих уже можно устанавливать курсор в любом месте строки, строчки выше почему то не работают среда Delphi 7...
Вобщем как реализовать поведение Edit'а наподобие адресной строки Проводника (при клике на нём)?

[DIgorevich]

procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.SelectAll;
end;

[eltorna]

DIgorevich
выделять надо не при каждом клике, а только при первом

[Mad_Cat]

procedure TForm1.Edit1Click(Sender: TObject);
begin
edit1.tag:=edit1.tag+1;
if edit1.tag= 1 then
Edit1.SelectAll;
end;

[DIgorevich]

Mad_Cat опередил

[eltorna]

Mad_Cat
спасибо!
пришлось правда добавить ещё одно событие

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Edit1.Tag := 0;
end;

[Raf-9600]

Сообщение от Mad_Cat

procedure TForm1.Edit1Click(Sender: TObject);
begin
edit1.tag:=edit1.tag+1;
if edit1.tag= 1 then
Edit1.SelectAll;
end;

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