procedure TForm1.Form1Create(Sender :TObject);