[Страдалецъ]

Несколько неверная обработка событий:
Вместо:

Код:

procedure TForm1.Open1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  f:= OpenDialog1.FileName;
end;

procedure TForm1.OpenDialog1Close(Sender: TObject);
begin
  Form1.Caption := f;
  Memo1.Clear;
  Memo1.Visible:= true;
  Memo1.Lines.LoadFromFile(f);
  Save1MenuItem.Enabled := Enable;
  SaveAs1MenuItem.Enabled := Enable;
  Close1MenuItem.Enabled := Enable;
 end;

Лучше так:

Код:

procedure TForm1.Open1Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then Exit;
  Form1.Caption := OpenDialog1.FileName;
  Memo1.Clear;
  Memo1.Visible:= true;
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  Save1MenuItem.Enabled := Enable;
  SaveAs1MenuItem.Enabled := Enable;
  Close1MenuItem.Enabled := Enable;
end;