um, wouldn't this move the mouse to where that colour is, then move mouse in "clickmouse" to the x,y, coordinats 400,300? whats the point in that? 
SCAR Code:
program cs;
{.include srl/SRL.scar}
var
x,y: integer;
begin
repeat
wait(25+random(10))
if (FindColor(x , y , 2769226 , 325, 225, 475, 375))then
begin
Status('Found colour, clicking...');
Mouse(x, y, 3, 3, true);
Wait(50+random(30));
ClickMouse(x, y, true);
wait(100+random(30));
ClickMouse(x, y, true);
wait(100+random(30));
ClickMouse(x, y, true);
wait(100+random(30));
end else
begin
Wait(10+random(10));
Status('Couldnt find colour...');
end;
until(false)
end.
try this. (fixed your standards too
)