Repeating and colour checking

Can anyone help me by explaining how to do these two simple things?

Repeat a procedure for an amount of times.

Check the colour of a specific pixel. If false redo procedure but if true move onto next procedure.

Simba Code:

Procedure LoopIt;
  Var
    i: Integer;
  begin
    for i := 0 to 100 do   //Start at 0 and loop anything 100 times
    begin
      Writeln('Loop number '+IntToStr(i));
      //Whatever else
    end;
  end;

Also:

Simba Code:

if(GetColor(x, y) = colour) then
  ... // If the colour is found, do this.
else
  ... // otherwise do this.

:)

Quote:

---

Originally Posted by Flight

Simba Code:

Procedure LoopIt;
  Var
    i: Integer;
  begin
    for i := 0 to 100 do   //Start at 0 and loop anything 100 times
    begin
      Writeln('Loop number '+IntToStr(i));
      //Whatever else
    end;
  end;

---

so if i wanted a simple mouse click in there, where would i put it