1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var i: Integer;
    AllFalse: Boolean;

AllFalse := true;
for i:=0 to Length(aArray)-1 do
  if aArray[i] = true then
  begin
    AllFalse := false;
    Break;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  i: Integer;  
  AllFalse: Boolean;  
begin 
  AllFalse := True;  
  i := 0;
  while ( (i < Length(aArray)) and AllFalse ) do begin
    AllFalse := aArray[i];
    Inc(i);
  end;
  if (AllFalse) then
    ShowMessage('Array ist "leer"!');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var koll:boolean;

procedure tform1.dkoll;
begin
for n:=1 to 3 do                       
  if (image1.Left + image1.Width < xb[n] ) or (image1.Left > xb[n]+ 100) or
     (image1.Top + image1.Height < yb[n]) or (image1.top > yb[n] + 15)
   then  koll:=false else koll:=true;

 if not koll then
   cha.left:=cha.left + 1;
koll:=false;
end;					

1:
2:
3:
4:
5:

type
  tkoordinaten=record
     xb,yb: shortint;
  end;
  tpruefen= array [0..3] of tkoordinaten;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

type
  TKoordinate = record
     Punkt: TPoint; // hat schon .x und .y
     Gueltig: Boolean; // True / False
  end;

  TKoordinaten = array [0..3] of TKoordinate;

  ...

  TKoordinaten[0].Punkt.x := 100;
  TKoordinaten[0].Punkt.y := 100;
  TKoordinaten[0].Gueltig := True;

  if (TKoordinaten[0].Gueltig) then
    begin
      
      ...
    end
  else ...