OnResize

[Konstantin_ua]

вот код

procedure TF_main.FormResize(Sender: TObject);
begin
if WindowState=wsMaximized then
    begin
      dbgrdh5.Height:=dbgrdh5.Height +150;
      pnl2.Top:=pnl2.Top+ 155;
    end
  else
    begin
       dbgrdh5.Height:=Heig;
       pnl2.Top:=Wid;
    end;
end;

работает только после того как 1 раз свернуть и развернуть форму, нужно что бы при первом разворачивание формы на весь экран менялась позиция компонентов.

[Stilet]

А не проще ли верстать с помошью align и anchors?
тогда и не придется прописывать ничего такого.

[Konstantin_ua]

а если на компах будут разные расширения и те пропорции какие я задам не подойдут или я ошибаюсь?

[Stilet]

Почему не подойдут? проблему будут составлять только шрифты. А сами размеры компонентов будут подгоняться под контрол-контейнер.