Собите после появления формы

[zumm]

procedure TForm.OnActivate(Sender: TObject);
begin
  if Tag = 0 then
  begin
    //Ваш код
    Inc(Tag);
  end;
end;

[Alexandr17-10]

Это будет неправильно при том тогда лучше так

procedure TMain_Application.Timer1Timer(Sender: TObject);
var VremStr:PAnsiChar;
  c:CHar;
  i:Integer;
begin
  PostMessage(ProgressBar1.Handle, $0409, 0, clYEllow);
  ProgressBar1.Position := 1;
  StringList:=TStringList.Create;
  For c:= 'A' to 'Z' do
    if GetDriveType(PAnsiCHar(c + ':\'))=DRIVE_FIXED then
      StringList.Add(c+':\');
  GetMem(VremStr, MAX_PATH);
  i:=-1;
  Repeat
    i:=i+1;
  Until (SearchTreeForFile(PAnsiCHar(StringList.Strings[i]), 'KaM_Remake.ex', VremStr)) or (i >=StringList.Count-1);
  If Length(VremStr)>0 then begin
    Timer1.Enabled:=False;
    PostMessage(ProgressBar1.Handle, $0409, 0, clBlue);
    ProgressBar1.Position:=100;
    MessageBox(Handle,PAnsiCHar(GetChangeLang('RUS-->',Name+'-->MessageBox-->lpText1')), PAnsiCHar(GetChangeLang('RUS-->',Name+'-->MessageBox-->lpCapt1',)),MB_Ok+MB_ICONASTERISK)
  end else begin
    Timer1.Enabled:=False;
    PostMessage(ProgressBar1.Handle, $0409, 0, clRed);
    ProgressBar1.Position:=50;
    MessageBox(Handle,PAnsiCHar(GetChangeLang('RUS-->',Name+'-->MessageBox-->lpText2')), PAnsiCHar(GetChangeLang('RUS-->',Name+'-->MessageBox-->lpCapt2',)),MB_Ok+MB_ICONASTERISK);
    Application.Terminate;
  end;
  FreeMem(VremStr);
  StringList.Free;
  ProgressBar1.Position:=0;
end;

Например тем что ее можно в любой момент вызвать а ту только вызвать при активации формы

[Аватар]

Это будет неправильно при том тогда лучше так
Например тем что ее можно в любой момент вызвать а ту только вызвать при активации формы

А как же тогда

Собите после появления формы

Или по ходу передумал?

[Alexandr17-10]

Есть еще причина что ее прейдется запускать несколько раз также что срабатывает в тот момент когда уже все компоненты отобразились на форме

[Kix.IV]

Сообщение от Alexandr17-10

Есть еще причина что ее прейдется запускать несколько раз также что срабатывает в тот момент когда уже все компоненты отобразились на форме

procedure DoIt;
begin
//Ваш код
end;

procedure TForm.OnActivate(Sender: TObject);
begin
  if Tag = 0 then
  begin
    DoIt;
    Inc(Tag);
  end;
end;

... В нужном месте
DoIt;
...