Source position: amigados.pas line 1601
type TSegSem = packed record
seg_Semaphore: TSignalSemaphore;
seg_Find: procedure;
seg_List: TMinList;
end;