HK1 := Copy(Form1.Edit1.Text, 1, 1);
wird auch nicht gehen, da Copy ja einen String zurückgibt, so würde es z.B. gehen:
Delphi-Quellcode:
If (length(Form1.Edit1.Text) > 0) then
HK1 := Form1.Edit1.Text[1];
Damit holt er sich dann das erste Zeichen des Strings.