изменение позиции form1

[mihali4]

OnActivate - Он при каждом переключении на прогу передвигает ее на указанные координаты. надо только при загрузке

Чепуха, никуда ничего не передвигается...

[Marsel737]

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Form1 do
  begin
    Top := 100;
    Left := 100;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  with Form1 do
  begin
    Left := (Screen.Width - Width) div 2;
    Top := (screen.Height - Height) div 2;
  end;
end;

[mihali4]

Зачем эти извраты:

 with Form1 do
  begin
 ...
  end;

Это и так само собой разумеется...
Смело убирайте.

[Marsel737]

Это просто привычка. Когда динамически что нибудь создаю пишу к примеру

MyButton := TButton.Create(Owner);
with MyButton do
begin
  ...
end;

Вот оттуда и началось