[Mp3]

есть не спящие????

помогите составить пожалуйста програмку *обычный блокнот* в делфи,вот код но выдает ошибку если кто видит её отпишитесь где она плиз

procedure TForm4.Button1Click(Sender: TObject);

begin
if OpenDialog1.Execute then
EditFile:= Form1.OpenDialog.FileName;
Memo.Lines.LoadFromFile(EditFile);
Form1.Caption := ExtractFileName(EditFile)+' - Блокнот';

end;

end.

у меня есть memo1, button и opendialog на панели