Hälfte eines Strings ausgeben

[c0mpl3t3]

Hi,
ich bin ein ziemlicher Delphi Neuling, wir haben gerade in Informatik damit begonnen.
Nun hab ich folgende Frage:
Aufgabe ist es, einen beliebigen string zu teilen, und die hälfte auszugeben, ich hab das folgendermaßen gelöst:

Delphi-Quellcode:

procedure TProzeduren.halbieren_buttonClick(Sender: TObject);
begin
    text1:=text1_edit.Text;
    text2:=text2_edit.Text;
    laenge1:=Length(text1);
    if odd(laenge1)= true then
      begin
        dec(laenge1);
        laenge1extended:=laenge1;
        laenge1extended:=laenge1extended/2;
      end
    else
      begin
        laenge1extended:=laenge1;
        laenge1extended:=laenge1extended/2;
      end;
    laenge1extended:=Integer(laenge1extended);
    text1:=copy(text1,0,laenge1extended);
    ausgabe1_label.Caption:=text1;
end;

Mir wird dann beim Compiliern der fehler ausgegeben, dass inkompatible Datentypen am Werk wären, durch die if abfrage ist aber ja sichergestellt, dass beim Teilen eine integer Zahl rauskommt.

Ich würd mich freuen wenn ich einen andren Lösungsvorschlag hättet oder meinen Fehler finden würdet.