Read Error bei dll

[sharkx]

Luckie, die hat sie ja ... mIRC.
Meine Functionen funktionieren auch wenn ich die Variablen in der dll gleich fest belege. Nur wenn ich sie von mIRC aus übergebe kommt nix an :/

Delphi-Quellcode:

function ShowMSG( mWnd: hWnd; aWnd: hWnd; Data: PChar; Parms: PChar;
Show: Boolean; NoPause: Boolean ): Integer; export; stdcall;
var
  i: Integer;
begin
    for i := 1 to ParamCount do
    begin
      if (ParamStr(i) = '-FPath') then
        FPath := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-Source') then
        Source  := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-SPath') then
        SPath := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-Target') then
        Target := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-TPath') then
        TPath := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-Release') then
        Release := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-FQF') then
        FQF := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-IFQF') then
        IFQF := PChar(ParamStr(i+1));
    end;
 ShowMessage('FQF ' + ' ' + FQF + 'Source ' + Source + ' ' + 'SPath ' + SPath + ' ' + 'Target ' + Target + ' ' + 'TPath ' + TPath + ' ' + 'Release ' + Release + ' ' + 'IFQF ' + IFQF + ' ' + 'FPath ' + FPath);
 Result := 0;
end;

Übergeben wird es so.

//dll meine.dll dieFunction dieParameter