[Yurk@]

Код:

procedure TFirstForm.FormCreate(Sender: TObject);
const
DesignScrY: LongInt=768;
DesignScrX: LongInt=1024;
DesignBorder: LongInt=2;
var
SystemScrY,SystemScrX,SystemBorder,OldHeight,OldWidth: LongInt;
Registry: TRegistry;
begin
SystemScrY := GetSystemMetrics(SM_CYSCREEN);
SystemScrX := GetSystemMetrics(SM_CXSCREEN);
SystemBorder := GetSystemMetrics(SM_CYFRAME);
    with Sender as TForm do
     begin
     Scaled := True;
     AutoScroll := False;
     Top := Top * SystemScrX div DesignScrX;
     Left := Left * SystemScrX div DesignScrX;
     OldHeight := Height + (DesignBorder - SystemBorder) * 2;
     OldWidth := Width + (DesignBorder - SystemBorder) * 2;
     ScaleBy((OldWidth * SystemScrX div DesignScrX - SystemBorder * 2),(OldWidth - DesignBorder * 2));
     Height := OldHeight * SystemScrY div DesignScrY;
     Width := OldWidth * SystemScrX div DesignScrX;
     end;
end;