(* ------------------------------------------------------------------------------
  TImageEnView Image Processing in a TThread : 1.0
  For A Programmers Introduction To Using ImageEn Library Suite
  Copyright © 2013     : Copyright Adirondack Software & Graphics
  Last Modification    : 06-19-2013
  Source File          : Unit2.pas
  Compiler             : Delphi 2010
  ImageEnVersion       : 4.3.1
  Operating System     : Windows 7
  This file is copyright (C) W W Miller, 1986-2013.
  It may be used without restriction. This code distributed on an "AS IS"
  basis, WITHOUT WARRANTY OF ANY KIND, either express or implied.
  ------------------------------------------------------------------------------ *)

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
const
  AFilename: string = 'Threading.rtf';

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
  iPath: string;
begin
  iPath := IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName));
  if FileExists(iPath + AFilename) then
    RichEdit1.Lines.LoadFromFile(iPath + AFilename)
  else
    RichEdit1.Lines.Add('Can not find ' + iPath + AFilename + '.');
end;

end.