Forms Delphi

//FORMUN BOUTUNU SABİTLEMEK...
//Form Create olayına
var
orj,aktif:integer;
Begin
orj:=800 //Tasarımın yapıldığı çözünürlük
aktif:=screen.width;
Form1.ScaleBy(aktif,orj);
end;