[rzawm]

Alegun, он под разные версии делфи свой.
Ошибка вот
"[dcc32 Error] Unit1.pas(206): E2003 Undeclared identifier: 'AddFromFile'"

Перед этой ошибкой ещё были поправил, код сейчас такой

Код:

procedure TForm1.Button11Click(Sender: TObject);
var
 fn: string;
begin
 with SaveDialog3, Memo3 do
       if Execute then
   begin
    fn:= ChangeFileExt(ExtractFileName(SaveDialog3.FileName), 'txt');
    Memo3.Lines.SaveToFile(fn);
    with TZipForge.Create(nil) do
     begin
      FileName:= SaveDialog3.FileName;
      OpenArchive(fmCreate);
      AddFromFile(fn);
      CloseArchive;
      Free;
     end;
    DeleteFile(fn);
   end;

end;