procedure TForm1.Button2Click(Sender: TObject); var

Filter := 'All files|*.*'+'Text files|*.txt,*.doc';

FilterIndex := 2;

IF Execute THEN

BEGIN

{Таңдап алынған файлды Memo1 құрауышында ашады}

Memo1.Lines.LoadFromFile(FileName);

fFileName := OpenDialog1.FileName;

Form1.Caption := fFileName;

Label1.Caption := ExtractFileName(fFileName);