есть ли ошибка в коде

[Dozent]

как у вас описана перемная это?

[mansuetudo]

В этой строке -

FileName:= dlgDialog1.FileName;

должно быть именно dlgDialog1, а не dlgOpen1?

[pascalzzz]

dlgDialog1

[Dozent]

Как описана у вас переменая?
ДАйте код...

[pascalzzz]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
dlgOpen1: TOpenDialog;
RichEdit1: TRichEdit;
procedure RichEdit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
if dlgOpen1.Execute then begin
FileName:= dlgDialog1.FileName;
richedit1.Lines.LoadFromFile(dlgOpe n1.FileName);
end
else
ShowMessage('Òàêîãî ôàéëà íåò!');

end;

end.

[Dozent]

Уважаемый, простите конечно но у вас полная не разбериха в коде

Ну вопервых, у вас не описана переменая FileName? предагаю вам её описать как string

Вовторых увас нет на форме компанента dlgDialog1 из которого вытак усердно пытаетесь получить данные

[pascalzzz]

Сообщение от Dozent

Уважаемый, простите конечно но у вас полная не разбериха в коде

Ну вопервых, у вас не описана переменая FileName? предагаю вам её описать как string

Вовторых увас нет на форме компанента dlgDialog1 из которого вытак усердно пытаетесь получить данные

а где находиться компон dlgdialog никак не могу найти

[Dozent]

Сообщение от pascalzzz

а где находиться компон dlgdialog никак не могу найти

Это у вас спросить надо, где он? Код сами писали?

[pascalzzz]

нет мне написали

[pascalzzz]

надо сделать вывод сообщения на экран