1. Pada events OnShow isi kode sperti di bawah ini
procedure TForm1.FormShow(Sender: TObject);
var r :TRect;
begin
Form1.SetBounds(r.left, r.top, r.Right -r.left, r.bottom - r.top);
end;
Selesaii :)
Sialahkan dicoba.