object Form1: TForm1
 Left = 192
 Top = 114
 Width = 412
 Height = 106
 Caption = 'Form1'
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'MS Sans Serif'
 Font.Style = []
 OldCreateOrder = False
 OnCreate = FormCreate
 OnResize = FormResize
 PixelsPerInch = 96
 TextHeight = 13
 object Button1: TButton
   Left = 4
   Top = 4
   Width = 75
   Height = 25
   Caption = 'Button1'
   TabOrder = 0
 end
 object Button2: TButton
   Left = 84
   Top = 4
   Width = 75
   Height = 25
   Caption = 'Button2'
   TabOrder = 1
 end
 object Button3: TButton
   Left = 164
   Top = 4
   Width = 75
   Height = 25
   Caption = 'Button3'
   TabOrder = 2
 end
 object Button4: TButton
   Left = 244
   Top = 4
   Width = 75
   Height = 25
   Caption = 'Button4'
   TabOrder = 3
 end
 object Button5: TButton
   Left = 324
   Top = 4
   Width = 75
   Height = 25
   Caption = 'Button5'
   TabOrder = 4
 end
 object Button6: TButton
   Left = 4
   Top = 32
   Width = 75
   Height = 25
   Caption = 'Button6'
   TabOrder = 5
 end
 object Button7: TButton
   Left = 84
   Top = 32
   Width = 75
   Height = 25
   Caption = 'Button7'
   TabOrder = 6
 end
 object Button8: TButton
   Left = 164
   Top = 32
   Width = 75
   Height = 25
   Caption = 'Button8'
   TabOrder = 7
 end
 object Button9: TButton
   Left = 244
   Top = 32
   Width = 75
   Height = 25
   Caption = 'Button9'
   TabOrder = 8
 end
 object Button10: TButton
   Left = 324
   Top = 32
   Width = 75
   Height = 25
   Caption = 'Button10'
   TabOrder = 9
 end
end

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
 ExtCtrls;

type
 TCtrlStartParam = record
  Left, Top, Width, Height: Integer;
 end;
 TCtrlStartParams = array of TCtrlStartParam;

 TForm1 = class(TForm)
   Button1: TButton;
   Button2: TButton;
   Button3: TButton;
   Button4: TButton;
   Button5: TButton;
   Button6: TButton;
   Button7: TButton;
   Button8: TButton;
   Button9: TButton;
   Button10: TButton;
   procedure FormCreate(Sender: TObject);
   procedure FormResize(Sender: TObject);
 private
   W, H: Integer;
   CSP: TCtrlStartParams;
   { Private declarations }
 public
   { Public declarations }
 end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var N: Integer;
begin
 W:=ClientWidth;
 H:=ClientHeight;
 SetLength(CSP, ControlCount);
 for N:= 0 to ControlCount-1 do begin
  CSP[N].Left:=Controls[N].Left;
  CSP[N].Top:=Controls[N].Top;
  CSP[N].Width:=Controls[N].Width;
  CSP[N].Height:=Controls[N].Height;
 end;
end;

procedure TForm1.FormResize(Sender: TObject);
var KofW, KofH: Extended; N: Integer;
begin
 KofW:=ClientWidth/W;
 KofH:=ClientHeight/H;
 for N:=0 to ControlCount-1 do begin
  Controls[N].Left:=Round(CSP[N].Left*KofW);
  Controls[N].Top:=Round(CSP[N].Top*KofH);
  Controls[N].Width:=Round(CSP[N].Width*KofW);
  Controls[N].Height:=Round(CSP[N].Height*KofH);
 end;
end;

end.

Вежливые вопросы и предложения по клиентскому протоколу и форуму можно писать на http://dev2.delphimaster.ru/forum/other/