Prog. nur einmal starten.Parameter an erstes Weitergeben?

[mimi]

ich habe den code aus der code-lib genommn,und beim starten erhalte ich folgende fehermledung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Textanzeiger.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 00489453 in Modul 'Textanzeiger.exe'. Lesen von Adresse 000006C0'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

und an dieser stelle:

Code:

class procedure TSingleInstance.WndProc(var Msg: TMessage); 
// das ist die Fensterprocedure von WndHandle, sie empfängt innerhalb 
// der 1. Instance die wm_CopyData Message mit der CommandLine der 
// 2. Instance 
begin 
  with Msg do 
    if (Msg = wm_CopyData) and (PCopyDataStruct(lParam).dwData = cMagic) then  // hier die fehlermeldung
    begin 
      Result := cResult; 
      CmdLine := PCopyDataStruct(lParam).lpData; 
      OnStartup; 
    end else Result := DefWindowProc(WndHandle, Msg, wParam, lParam); 
end;

und sTitle = 'Textanzeiger:1.0Z$123456789'; ist doch richtig ??? das ist der caption in mein haupt form