[S2k]

И еще, чтобы не создавать новый топик пишу здесь.
Почему зависает вот эта процедура? Вроде все правильно, а оно виснит.


procedure ShowTable;
var i:integer;
begin
setcolor(0,0,0);
fillRect(0,0,getWidth,getHeight);

setcolor(255,255,255);
for i:=0 to 6 do
begin
drawline(0,i*16,getWidth,i*16);
end;

for i:=0 to 3 do
begin
drawline(i*(getWidth div 3),0,i*(getWidth div 3),getHeight);
end;

repaint;
delay(2000);
end;