[ecfisa]

Hola.

También hay otra opción para prescindir de un procedimiento adicional, algo así como un "tiro libre indirecto"...

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  with LabeledEdit1 do
  begin
    Perform(WM_LBUTTONDOWN, MK_LBUTTON, 0);
    Perform(WM_LBUTTONUP, MK_LBUTTON, 0);
  end;
end;

Saludos.