Gider ikke save record

Kode 

procedure TForm1.LoadKey(KeyName: string; Key: TNumKey);
var
i: integer;
begin
with Form3 do begin
  chkMotA.Checked:= false;
  chkMotB.Checked:= false;
  chkMotC.Checked:= false;
  rbtnFwd.Checked:= false;
  rbtnBwd.Checked:= false;
  spinSpeed.Value:= 1;
  GroupBox1.Caption:= 'Key: ' + KeyName;
  if Key.Motors <> '' then
  for i:= 0 to Length(Key.Motors) do begin
    if Key.Motors[ i ] = '0' then chkMotA.Checked:= true;
    if Key.Motors[ i ] = '1' then chkMotB.Checked:= true;
    if Key.Motors[ i ] = '2' then chkMotC.Checked:= true;
  end;
  if Key.Direction = 1 then rbtnFwd.Checked:= true;
  if Key.Direction = -1 then rbtnBwd.Checked:= true;
  spinSpeed.Value:= Key.Speed;
  end
end;

Kode 

procedure TForm1.SaveKey(Key: TNumKey);
begin
  Key.Motors:= '';
  if Form3.chkMotA.Checked then Key.Motors:= Key.Motors + '0';
  if Form3.chkMotB.Checked then Key.Motors:= Key.Motors + '1';
  if Form3.chkMotC.Checked then Key.Motors:= Key.Motors + '2';
  Key.Motors:= AddChars(Key.Motors, '+');
  if Form3.rbtnFwd.Checked then Key.Direction:= 1;
  if Form3.rbtnBwd.Checked then Key.Direction:= -1;
  Key.Speed:= Form3.spinSpeed.Value;
end;