procedure TForm1.FormPaint(Sender: TObject);
begin
  Form6.Left:=Form1.Left+10;
  Form6.Top:=Form1.Top+442;
end;