Turbo Pascal 7.0 / TP7 / OWLDEMOS / HELLOAPP

{************************************************}
{ }
{ 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.