DIV Problem (Integer?)

[Decadoria]

Hallo Ihr
Ich hab n problem und finde meinen Fehler nicht!
Und zwar geht es darum das ich in meinem Programm eine Rechnung machen will,
als ergebnis will ich aber nur GANZE zahlen ausgegeben bekommen.

Ich hab daher jetzt in meiner Rechnung mit DIV statt / gerechnet..
Allerdings bekomme ich nun immer folgende Fehlermeldung:

[Fehler] Unit1.pas(42): Operator ist auf diesen Operandentyp nicht anwendbar

Hier Nochmals mein Quelltext... Kann mir jemand sagen was ich jetzt Falsch gemacht habe???

var
Form1: TForm1;
L,H,L2,H2:real;


procedure TForm1.RechneClick(Sender: TObject);

begin
L:=strtoint (Laenge.text);
H:=strtoint (Hoehe.text);

if L>H then begin
L2:=L;
H2:=(L div 3)*2;
end
else
begin
H2:=H;
L2:=(H div 3)*2;
end;

Hoehe2.text:=inttostr(H2) ;
Laenge2.Text:=intttostr(L2) ;

end;


LG Deca