{************************************************}
{                                                }
{   Turbo Pascal for Windows                     }
{   Demo program                                 }
{   Copyright (c) 1991 by Borland International  }
{                                                }
{************************************************}

program Hello;
         
uses WObjects, WinTypes, WinProcs;
         
type
 
  { Define a TApplication descendant } 
  THelloApp = object(TApplication)
    procedure InitMainWindow; virtual;
  end;

{ Construct the THelloApp's MainWindow object } 
procedure THelloApp.InitMainWindow;
begin
  MainWindow := New(PWindow, Init(nil, 'Hello, Turbo Pascal World'));
end;
 
{ Declare a variable of type THelloApp } 
var
  HelloApp: THelloApp;

{ Run the HelloApp }
begin
  HelloApp.Init('HelloApp');
  HelloApp.Run;
  HelloApp.Done;
end.  
