procedure TfrmUtama.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  DBGrid1.Width := frmUtama.Width - DBGrid1.Width;
  DBGrid1.Height := frmUtama.Height - DBGrid1.Height;
end;