procedure TForm1.Button1Click(Sender: TObject); var

S: String;

{Диалог терезесінің файл атында таңдап алынған атты файлдық айнымалымен байланыстыру}

AssignFile(F,OpenDialog1.FileName);

Reset(F); {Файлды ашу}

Readln(F,S); {Файлдан бірінші жолды S жолдық айнымалысына есептеу }

Edit1.Text:=S; { Edit1құрауышындағы S жолын шығару}

CloseFile(F); {Файлды жабу}

END;

end;

Мысал 3.5.2 Button2 құрауышы үшін OnClick оқиға өңдеуіші ашылатын файлдың атын таңдауға арналған диалог терезесін ашады және файлдың мәтінін Memo1 құрауышына орналастырады.