Moin,
was soll das:
Delphi-Quellcode:
begin
repeat c:=c+1 until
(c+1) * Bv > Breite;
if (c+1) * Bv > Breite then c:= c-1;
repeat v:=v+1 until
(v+1) * Lv > Hoehe;
if (v+1) * Lv > Hoehe then v:= v-1;
end;
Und wo soll das hin führen? Werden die Repeat-schleifen auch mal verlassen? Das solltest du als erstes mit dem Debugger teten.
Gruß oki