У меня проблема. Помогите.
 

Что это ?????

Could not find source location to add method N4Click."END." or INITIALIZATION not found in unit source

Re: У меня проблема. Помогите.
 

Код процедуры покажите.

Re: У меня проблема. Помогите.
 

if OpenDialog1.Execute then begin
Memo1.Lines.LoadFromFile(OpenDialog1.Filename);
Filename:=OpenDialog1.FileName;
Caption:=FileName;
Где-то здесь может запись не правильная

Добавлено через 38 минут
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure Memo1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
FileName:string;

implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
Memo1.Lines.Clear;
FileName:='Безымянный';
Caption:=FileName;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
Memo1.Lines.LoadFromFile(OpenDialog1.Filename);
Filename:=OpenDialog1.FileName;
Caption:=FileName;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
if FileName='' then begin
if not SaveDialog1.Execute then exit;
FileName:=SaveDialog1.FileName;
Caption:=FileName;
end;
Memo1.Lines.SaveToFile(FileName);
end;

procedure TForm1.N6Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
N2Click(nil);
end;

end.

Re: У меня проблема. Помогите.