ich würde es so machen:
Delphi-Quellcode:
if (not (StringList is TStringsList)) then
begin
StringList := TStringList.Create;
end;
Dabei jedoch die Variable StringList vom Typ TStrings deklarieren, aber als eine TStringList erzeugen. Also so:
Delphi-Quellcode:
var StringList: TStrings; // so deklarieren
{...}
proecedure TForm1.FormCreate(Sender: TObject);
begin
StringList := TStringList.Create; // so erzeugen
end;
Das müsste funktionieren.