Inkompatible Typen: Char und String

[Delp]

Guten Abend,

habe heute angefangen meinen Taschenrechner zu programmieren und komme direkt nicht mehr weiter..

Hier der Quellcode:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var  eingabe,loesung: string;
ergebnis: double;
zeichen:char;
begin
ergebnis:= 0;
loesung:= edit2.text;
eingabe:=edit1.Text;
zeichen:= copy(loesung,length(loesung),1);
delete(loesung,length(loesung),1);
case zeichen of
'+': ergebnis:=strtofloat(loesung)+strtofloat(eingabe);
'-': ergebnis:=strtofloat(loesung)-strtofloat(eingabe);
end;
edit2.text:=floattostr(ergebnis);
end;

end.

Bei der Zeile zeichen:= copy(loesung,length(loesung),1); zeigt es mir den oben genannten Fehlercode an. Wie könnte ich es anders schreiben, damit der Fehler beseitigt wird?

Danke im voraus für die Antworten.

Delp