procedure ScaleForm
    (F: TForm; ScreenWidth, ScreenHeight: LongInt) ;
begin
   F.Scaled := True;
   F.AutoScroll := False;
   F.Position := poScreenCenter;
   F.Font.Name := 'Arial';
   if (Screen.Width <> ScreenWidth) then begin
     F.Height :=
         LongInt(F.Height)  LongInt(Screen.Height)
         div ScreenHeight;
     F.Width :=
         LongInt(F.Width)   LongInt(Screen.Width)
         div ScreenWidth;
     F.ScaleBy(Screen.Width,ScreenWidth) ;
   end;
end;

procedure ScaleForm
    (F: TForm; ScreenWidth, ScreenHeight: LongInt) ;
begin
   F.Scaled := True;
   F.AutoScroll := False;
   F.Position := poScreenCenter;
   F.Font.Name := 'Arial';
   if (Screen.Width <> ScreenWidth) then begin
     F.Height :=
         LongInt(F.Height)  LongInt(Screen.Height)
         div ScreenHeight;
     F.Width :=
         LongInt(F.Width)   LongInt(Screen.Width)
         div ScreenWidth;
     F.ScaleBy(Screen.Width,ScreenWidth) ;
   end;
end;

@MrLee: coba main-main di properties masing-masing komponen dan lihat efek nya akan menyesuaikan besar nya form

@mas_kofa: mungkin maksudnya main property Anchor ya bro @MrLee...xixixi.........

Edit1.width := Fomr1.Width;
Edit1.Height := Edit1.Height;