procedure TForm1.OnShow(Sender: TObject);
でよろしいでしょうか?