Как сделать программу - Просмоторщик файлов )*
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
В начале, после функций Private и Public нужно ввести следущее:
MDIFileViewer: TMDIFileViewer;, чтобы всё это выглядило примерно так:  
----------------------------------------------------------------------------------------------------------------
   private
        { Private declarations}
   public
        { Public declarations}
   end;

var
   MDIFileViewer: TMDIFileViewer;

implenentation
   uses TextViever1
   {$R *.DFM}
----------------------------------------------------------------------------------------------------------------    
Теперь пишем програмный код к кнопке "Открыть" (Button1: TButton)
В данном случае именем формы (Form1: TForm) является TextViewer
----------------------------------------------------------------------------------------------------------------
procedure TMDIFileViewer.Button1Click(Sender: TObject);
var
TextViewer: TTextViever;
begin
If FileOpenDialog.Execute Then
begin
TextViewer:=TTextViewer.Create(Self);
TextViewer.Open (FileOpenDialog.FileName)
TextViewer.Visible:=True;
TextViewer.SetFocus;
end;
end;

end.
---------------------------------------------------------------------------------------------------------------
Надо незабывать что для создания формы "Просмоторщика"
необходимы следующие элементы:
Button1:TButton1;
FileOpenDialog: TOpenDialog;
----------------------------------------------------------------------------------------------------------------
)* - Эта программа уже сделана мной, и вы можете подгрузить её саму и
её проект на моём сайте по адресу:
http://www.kudruavtsev.narod.ru/file.html

Автор программы, идеи и текста: Кудрявцев Юра (PAYBACK co. #2000)

Internet: http://www.kudruavtsev.narod.ru
Mail-me: backpayback_yura@mail.ru