- //[...]
 - Interface
 - type tklasse=class
 - private
 - procedure start_thread;
 - procedure io_thread;
 - //[...]
 - end;
 - implementation
 - procedure tklasse.start_thread;
 - var ThreadID: DWORD; //Thread-ID
 - ThreadHandle: THandle; //Rückgabewert von CreateThread
 - begin
 - ThreadHandle:=CreateThread(nil, 0,
 - TFNThreadStartRoutine(@tklasse.io_thread),nil, 0, ThreadID);
 - if ThreadHandle<>0 then CloseHandle(ThreadHandle);
 - end;
 - procedure tklasse.io_thread;
 - begin
 - //hier wird die Zugriffsverletzung angezeigt
 - //hier steht noch alls mögliche
 - end;
 - //[...]
 
