ENtpacken von .rar

[whiteF]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var filepath : string;
begin
if OpenDialog1.Execute then begin
filepath := OpenDialog1.FileName;
showmessage(filepath);
      if RAR1.OpenFile(filepath) then
      ShowMessage('Erfolg!')
      else
      ShowMessage('Fehler!');
end;
RAR1.free;
end;

= Fehler


auch nur das hier gibt mir 0 zurück

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(BoolToStr(RAR1.OpenFile('C:\1\b.rar')));
RAR1.free;
end;

= 0