procedure TForm2.FormCreate(Sender: TObject); var PEB: PPEB; cLdrModule: TPebLdrData; List: TListItem; cModName: String; cModBase: LongWord; i: Integer; begin asm push eax mov eax, fs: $30 mov PEB, eax pop eax end; cLdrModule := TPebLdrData(PEB.Ldr^