3
{ Program to demonstrate TRect.Move }
8
Var ARect,BRect : TRect;
11
ARect.Assign(10,10,20,20);
13
// Brect should be where new ARect is.
14
BRect.Assign(15,15,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'