3
{ Program to demonstrate TRect.Grow }
8
Var ARect,BRect : TRect;
11
ARect.Assign(10,10,20,20);
13
// Brect should be where new ARect is.
14
BRect.Assign(5,5,25,25);
15
If ARect.Equals(BRect) Then
16
Writeln ('ARect equals BRect')
18
Writeln ('ARect does not equal BRect !');
b'\\ No newline at end of file'