View Single Post
  #2  
Old 05-15-2011, 03:36 AM
GeoWink GeoWink is offline
Senior Member
 
Join Date: Jan 2001
Posts: 885
Default

This works. Maybe use as an example?

George

procedure TForm1.ColorButton3Click(Sender: TObject);
var
I: integer;
X: integer;
begin
X := 0;
for I := 1 to 10 do
begin
X:= X + 1;
if X > 5 then
begin
OK_Box('This is GT 5');
Abort;
end
else
OK_Box('This is X =' + IntToStr(X));
end;
end;
Reply With Quote