1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Function GetConvert(sBase:string):double;
var
  TFromA   : TConvType;
  TToB     : TConvType;
begin
   TFromA  := sBase; // das fonctionniert hier nicht!!!
   TToB    := duKilometers;
...
result :=  convert(aValue,TFromA  ,TToB  )
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

type
  TConvType = (duNone, duKilometers, duMeters);

function StrToConvType(AValue: String): TConvType;
const
  ConvTypeStrings: array[TConvType] of String = ('duNone', 'duKilometers',
    'duMeters');
var
  i: TConvType;
begin
  Result := duNone;
  for i := Low(TConvType) to High(TConvType) do
    if ConvTypeStrings[i] = AValue then
    begin
      Result := i;
      Break;
    end;
end;					

1:

ConvTypeStrings: array[TConvType] of String = ('duNone', 'duKilometers', 'duMeters');