{ %fail } {$mode delphi} uses classes; procedure FormShow(Sender: TObject); var List: TList; begin end; begin end.