Procedure FormShow(Sender : TObject);
Begin
  Sascha-Carsten Wedlers   www.Delphi-Orakel.de (* Die Delphi FAQ *)
End;