проблема в коде редактора Delphi 7

[Alexandr17]

Procedure AlignComponentsPanels1;
Begin
  With Form1 do begin
    SpinEdit1.Align:=AlTop;
    LabeledEdit1.EditLabel.Align:=AlTop;
    LabeledEdit1.Align:=AlTop;
    LabeledEdit2.EditLabel.Align:=AlTop;
    LabeledEdit2.Align:=AlTop;
    LabeledEdit3.EditLabel.Align:=AlTop;
    LabeledEdit3.Align:=AlTop;
    Label2.Align:=AlTop;
    ComboBox1.Align:=AlTop;
    Edit1.Align:=AlTop;
    Button1.Align:=AlTop;
    Button2.Align:=AlTop;
  end;
End;

Procedure ShowHidePanel(var Actions:TAction; str:String);
Begin
  If not VarPanelsBools[0] then begin
    VarPanelsBools[0]:=True;
    Actions.Caption:='Скрыть меню';
  end else begin
    VarPanelsBools[0]:=False;
    Actions.Caption:='Создать файл Libx '+str;
  End;
End;

procedure TForm1.CreateFileLibxMissionExecute(Sender: TObject);
begin
  LabeledEdit1.Visible:=True;
  LabeledEdit1.EditLabel.Visible:=True;
  LabeledEdit2.Visible:=True;
  LabeledEdit2.EditLabel.Visible:=True;
  LabeledEdit3.Visible:=True;
  LabeledEdit3.EditLabel.Visible:=True;
  Label1.Caption:='Введите число мисий';
  Label2.Caption:='Выберите заголовок';
  ComboBox1.ItemIndex:=1;
  ComboBox1.Enabled:=True;
  ComboBox1.OnChange(Combobox1);
  Button1.Visible:=True;
  Button2.Visible:=False;
  ShowHidePanel(CreateFileLibxMission; 'Миссии');
  AlignComponentsPanels1;
end;

procedure TForm1.CreateFileLibxScriptsExecute(Sender: TObject);
begin
  LabeledEdit1.Visible:=False;
  LabeledEdit1.EditLabel.Visible:=False;
  LabeledEdit2.Visible:=False;
  LabeledEdit2.EditLabel.Visible:=False;
  LabeledEdit3.Visible:=False;
  LabeledEdit3.EditLabel.Visible:=False;
  Label1.Caption:='Введите число текстов';
  Label2.Caption:='Введите заголовок';
  ComboBox1.ItemIndex:=3;
  ComboBox1.Enabled:=False;
  ComboBox1.OnChange(Combobox1);
  Button1.Visible:=False;
  Button2.Visible:=True;
  ShowHidePanel(CreateFileLibxScripts, 'Сценария');
  AlignComponentsPanels1;
end;

Почему если событие CreateFileLibxMissionExecute(Sender : TObject); происходит после события CreateFileLibxScriptsExecute(Sender : TObject); то расположения меняются подробно на скринах и как это исправить

[Alexandr17]

Никто неужели не может помочь решить проблему

[doktor255]

Помочь может кто угодно, просто вопрос настолько элементарен, что ни кто не желает на него отвечать. Подключай интеллект, иначе нет смысла учиться программировать.

[Alexandr17]

Если про в процедуре Procedure AlignComponentsPanels1; задавать координаты объектов то итог еще хуже.
проблемы в принципе нашел. При стирании объектов тоесть после того как их сделать невидимыми они стираются с формы и поле того как их снова показать координыты объектов збиваются. Но я пробывал даже казать в Procedure AlignComponentsPanels1; их координваты но тогда вообще они становятся не на своих местах