Indlæse en txt fil i en currencyedit

procedure HentVaerdier(aFilename: string; var aC1, aC2: currency);
var
  i: integer;
  List: TStringList;
begin
  List := TStringList.Create;
  try
    List.LoadFromFile(aFilename);
    aC1 := 0.0;
    aC2 := 0.0;
    for i := 0 to List.Count - 1 do
      case i of
        0: aC1 := StrToFloatDef(List[i],0.0);
        1: aC2 := StrToFloatDef(List[i],0.0);
        else
          // Håndt. hvis der er flere end 2 linjer i fil
      end;
  finally
    List.Free;
  end;
end;