//-------------------------------------------------------------------------
// YourDescription
//
// Code from Delphi Snippets : http://www.sortland.net/Delphi/Snippets.htm
//-------------------------------------------------------------------------
unit YourUnit;  //    

interface

uses
  Windows;


type
  TForm1 = class(TForm)
    Memo1: TMemo;


    procedure FormShow(Sender: TObject);
  private
    { Private declarations }


  public
    { Public declarations }


  end;

var
  Form1: TForm1;



resourcestring


  NoOfFiles='Stored in resource file';


implementation

{$R *.DFM} 

//-------------------------------------------------------------------------
// This function is called every time the form is shown
//-------------------------------------------------------------------------
procedure TForm1.FormShow(Sender: TObject);
  begin
     //    
  end;



end.