Hilfe - Speichern Funktioniert plötzlich nicht mehr

[Finki]

Hey ich hab mal wieder ein Problem,

Das Programm will einfach nicht mehr speichern!

btnNew

Delphi-Quellcode:

procedure TForm1.btnNewClick(Sender: TObject);
begin
  if change then
  begin
  Memo1.Lines.Clear;
  end
  else
  begin
    Save(btnNew); //steht in der Library
  end;
end;

Library

Delphi-Quellcode:

procedure Save(Sender: TObject);
var
  textb : boolean;
  texts : string;
  long, long01, i : integer;
begin
        if Form1.SaveDialog.Execute then
        begin
        Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog.Filename + '.txt');
        savepath := Form1.SaveDialog.FileName;
          long:= length(Form1.SaveDialog.FileName);
          textb:=false;
          i:=1;
          repeat
            begin
                texts:=copy(Form1.SaveDialog.FileName,long,i);
                long:= long-1;
                i:=i+1;
                if texts[1]='\' then
                begin
                  long01:= length(texts);
                  texts:=copy(texts,2,long01-1);

                  textb:=true;
                end;
            end;
          until  textb;
          Form1.Caption:=texts;
          Form1.StatusBar.Panels.Items[0].Text:=Form1.SaveDialog.Filename+ '.txt';
          texts:='';
          change:=false;
          save01:=false;
        end;
       Form1.SaveDialog.Free;
end;

mit der verlinkung passt alles, da es schon funtioniert hat.

folgende Fehler tretten auf: siehe anhang