Canvas zeichnet bei Integer, nicht bei Single

[koisa]

Delphi-Quellcode:

procedure TFormPalettierung.SpeedButtonZeichnenClick(Sender: TObject);
var Breite, Hoehe :   Integer;    c,v,p : Single;
begin

 Lv := StrToFloat (EditLaenge.Text);
 Bv := StrToFloat (EditBreite.Text);
 Hv := StrToFloat (EditHoehe.Text);




 repaint;


 if ComboBoxPalettenwahl.ItemIndex = 0 then Breite := 1200;
 if ComboBoxPalettenwahl.ItemIndex = 0 then Hoehe := 800;

 if ComboBoxPalettenwahl.ItemIndex = 1 then Breite := 1200;
 if ComboBoxPalettenwahl.Itemindex = 1 then Hoehe := 1000;


  imageDraufsicht.Canvas.rectangle(0,0, Breite div 5 , Hoehe div 5 );



  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;

  while
  p<=c do
  begin
  imagedraufsicht.Canvas.MoveTo(round(p*Bv),0);
  imagedraufsicht.Canvas.LineTo(round(p*BV),round(v * Lv));

  end;

So, bei dieser Programmierung hängt sich das Programm beim zeichnen auf....