yo normalmente lo hago asi:
Código Delphi
[-]
procedure TForm1.Btn1Click(Sender: TObject);
var
H: THandle;
buf: array[0..1024] of char;
res: integer;
Cadena: string;
begin
H := LoadLibrary(PAnsiChar(Libreria));
if H >= 32 then
try
res := LoadString(H, 0, buf, SizeOf(buf));
if res <> 0 then
SetString(Cadena, buf, res)
else
Cadena := 'error';
Edit1.Text := Cadena;
Application.ProcessMessages;
finally
FreeLibrary(H);
end;
end;
Seguro que hay formas mejores de hacerlo, pero a mi me funciona
Un saludo