procedure TMain.FormCreate(Sender: TObject);
begin
Scaled := True;
if (Screen.Width <> ScreenWidth) then
begin
Height := Longint(Height) * Longint(Screen.Height) DIV ScreenHeight;
Width := Longint(Width) * Longint(Screen.Width) DIV ScreenWidth;
ScaleBy(Screen.Width,ScreenWidth);
end;
Anchors라는 프로퍼티가 있습니다. akRight와 akBottom을 True로 조정하고
한번 해보세요. 원하는 답이 나오지 않을까싶군요.