if routine für getpixel (brett vorm kopf)

[Blup]

x := x + 1; Aber dann sollte es eine zusätzliche Abbruchbedingung geben.

Vieleicht besser so:

Delphi-Quellcode:

for x := {xMin} to {xMax} do
begin
  if {TestFarbe1} then
  begin
    panel1.color := clBLUE;
    Break;
  end;
  if {TestFarbe2} then
  begin
    panel1.color := clGREEN;
    Break;
  end;
end;