Wert aus Klasse nicht verfügbar

[Ruio]

Der Fehler ist wohl doch nicht da:

Delphi-Quellcode:

procedure Tt4rCore.ReceiveAppMessage(var Msg: TWMCopyData); 
var 
  sText: array[0..999999] of Char; 
  SenderAndAction,Action,Sender: String; 
begin 
  SenderAndAction := '0000'+IntToStr(Msg.CopyDataStruct.dwData); 
  //Log(SenderAndAction,T4R_LOGLEVEL_INFOS); 
  Action := Copy(SenderAndAction,Length(SenderAndAction)-3,2); 
  Sender := Copy(SenderAndAction,0,Length(SenderAndAction)-3); 
  StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData); 
  ReceiveAppMessageCallback(Sender,Action, sText); //Hier wird die AV jetzt angezeigt
end;

Und zu array[0..999999] of Char;
Ein Dynamisches Array ging da nicht und weil ich nocht weiß wie viel da mal versendet wird ist das erstmal 999999 groß.