Befehlsübermittlung über Internet

[x3no]

Hi, alle zusammen!

Erst einmal vorweg ein digges Lob an DP ! Die Seite hat mir schon zu vielen Problemen
eine gute Lösung geboten.

Doch nun hab ich ein Problem, mit dem ich nicht weiter komme:

Delphi-Quellcode:

type
  TNachricht = class
  public
    procedure Execute(Strings : TStringList); virtual; abstract;
  end;

type
  TKarteHinzufügen = class(TNachricht)
  public
    procedure Execute(Strings : TStringList); override;
  end;

//...

var
  AddKarte : TNachricht;

//...
procedure TKarteHinzufügen.Execute(Strings : TStringList);
var InfoFile : TextFile;
    Info : string;
begin
//...
end;

procedure TFMain.FormCreate(Sender: TObject);
begin
  AddKarte := TKarteHinzufügen.Create;
  //...
end;

//...
// Client sendet string (Inhalt: AddKarte,...)
//...

procedure TFMain.ServerExecute(AContext: TIdContext);
var Strings : TStringList;
    //test : TNachricht;
begin
  Strings := TStringList.Create;
  Strings.CommaText := AContext.Connection.IOHandler.Readln;
  //test := TNachricht(Strings[0]);
  //test.Execute(strings);
  TNachricht(Strings[0]).Execute(Strings); // Hier kommt eine Zugriffsverletzung
                                           // vermutlich durch den cast
end;

Also: Was es später werden soll ist eine Befehlsübermittlung per IndyClient.

Vorher hatte ich den string mit einer case Struktur abgetastet, aber es sollte
vll noch bessere Möglichkeiten geben, und das soll ein Ansatz darstellen.

Falls jmd das Problem mit der Zugriffsverletzung lösen kann, oder mit sagen kann,
wie ich so eine Befehlsübermittlung programmieren kann wäre ich sehr dankbar.

Meine Vermutung ist noch, dass der Fehler am Cast liegt, jedoch weiß ich nicht warum.