var
same : Boolean;
small, large, i : Integer;
begin
small := 23;
large := 455555;// Test directly to see if these numbers are the same size
if small = large
then ShowMessage('small = large')
else ShowMessage('small <> large');// Use a Boolean to hold and test this outcome
same := (small = large);
if same
then ShowMessage('small = large')
else ShowMessage('small <> large');// Assign a direct logical value to this Boolean
same := True;
if same
then ShowMessage('same is True')
else ShowMessage('same is False');
end;