[[ElKurgan]]

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
    // 0 es el número de recurso; la otra cadena seria 1
    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