Åbn filer

if rettet then
begin
  Beep;
  Case MessageBox(Handle, 'Vil du gemme det nuværende dokument?.', 'Freepad dokument',  MB_ICONQUESTION+MB_YESNOCANCEL) of
        idYes:Speedbutton3Click (Sender);
end;
if Opendialog1.Execute then
begin
Memo1.Lines.LoadFromFile(Opendialog1.FileName); end;
Opendialog1.Execute;

Ups..

  if rettet then
  begin
    Beep;
    if MessageBox(Handle, 'Vil du gemme det nuværende dokument?.', 'Freepad dokument',  MB_ICONQUESTION+MB_YESNOCANCEL) = idYes then Speedbutton3Click (Sender);
  end;
  if Opendialog1.Execute then
  begin
    Memo1.Lines.LoadFromFile(Opendialog1.FileName);
  end;

if Memo1.Modified then
  begin
    Beep;
    Case MessageBox(Handle, 'Vil du gemme det nuværende dokument?.', 'Freepad dokument',  MB_ICONQUESTION+MB_YESNOCANCEL) of
        IDYES:Speedbutton3Click (Sender);
        IDCANCEL:Exit;
    end;
  end;
  if Opendialog1.Execute then
  begin
    Memo1.Lines.LoadFromFile(Opendialog1.FileName);
  end;

Hvis man vil gemme, åbner gemdialogen. Hvis man så trykker annuller i den, åbner en gang til for at gemme det dokument man lige har åbnet.

Prøv det her istedet:

function Gem: Boolean;
begin
Result := False;
if Form1.SaveDialog1.Execute then
begin
  Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.FileName);
  Result := True;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    if Memo1.Modified then
  begin
    Beep;
    Case MessageBox(Handle, 'Vil du gemme det nuværende dokument?.', 'Freepad dokument',  MB_ICONQUESTION+MB_YESNOCANCEL) of
        IDYES: if not Gem then Exit;
        IDCANCEL:Exit;
    end;
  end;
  if Opendialog1.Execute then
  begin
    Memo1.Lines.LoadFromFile(Opendialog1.FileName);
  end;
end;