Project Poject1.exe raised exception class EVariantTypeCaseError with Message 'Could not convert variant type of (Null) into type (String)'. Process stopped. Use Step or Run to continue.

Zum anderen der Quellcode, den es dann anzeigt:

public:
#pragma option push -w-inl
/* TCustomForm.Create / inline __fastcall virtual TForm(Classes::TComponent AOwner) : TCustomForm(AOwner) { }
#pragma option pop
#pragma option push -w-inl
/* TCustomForm.CreateNew / inline __fastcall virtual TForm(Classes::TComponent AOwner, int Dummy) : TCustomForm(AOwner, Dummy) { }
#pragma option pop
#pragma option push -w-inl
/* TCustomForm.Destroy */ inline __fastcall virtual ~TForm(void) { }
#pragma option pop