[Zorkov Igor]

Код:

AnsiString 

используй

Код:

procedure GetProcedureAddress(var P: Pointer; const ModuleName, ProcName: AnsiString);