Source position: tcl80.pp line 584
type Tcl_Event = packed record
proc: TTcl_EventProc;
nextPtr: PTcl_Event;
ClientData: TObject;
end;