Repeating and colour checking

[zluo]

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.

[Flight]

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;

[Daniel]

Also:


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


:)

[zluo]

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