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

{TPData ist ein ClientDataSet, TPDataDauer das Feld, was die Dauer eines Trainings enthält.
Es soll zuerst geprüft werden, ob das Feld überhaupt beschreiben ist, denn wenn das Feld (das ist
übrignes Standartformatiert, nichts besonderes) leer ist, dann entsteht bei dem ".AsFloat" eine Null. 
Diese Null landet dann in den Feldern. Und wenn ich das Protkoll dann wieder speicher, ist alles voller
Nullen, da wo eben eigentlichts nichts steht, bzw. ''.}

if Excel.Cells[row, 8].Value <> '' then // Hier liegt der Fehler
  TPDataDauer.AsFloat := Excel.Cells[row, 8].Value;                    

1:
2:
3:
4:
5:

try
  TPDataDauer.AsFloat := Excel.Cells[row, 8].Value;          
except
  TPDataDauer.AsFloat := 0;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

procedure TMainform.Button2Click(Sender: TObject);
var
  Excel       : Variant;
  Blatt       : Variant;
  ExcelWS     : Variant;
  Ergebnis    : Variant;
  ErgebnisTyp : integer;
  StringTyp   : string;
begin
  try
    Excel := GetActiveOleObject('Excel.Application');
  except
    Excel := CreateOleObject('Excel.Application');
  end;
  Excel.Visible := True;

  Excel.WorkBooks.Open('C:\Test.xlsx');
  Blatt := Excel.Worksheets.Item['Tabelle1'];

  Blatt.Activate;
  ExcelWS := Excel.ActiveSheet;

  Ergebnis := ExcelWS.Cells[1, 2].Value;  // Zeile 1, Spalte 2
  ErgebnisTyp := VarType(Ergebnis) and VarTypeMask;

  // Bei Excel kommen nur wenige davon in Betracht. Einfach ausprobieren.

  case ErgebnisTyp of
    varEmpty     : StringTyp := 'varEmpty';      // Excel
    varNull      : StringTyp := 'varNull';
    varSmallInt  : StringTyp := 'varSmallInt';
    varInteger   : StringTyp := 'varInteger';
    varSingle    : StringTyp := 'varSingle';
    varDouble    : StringTyp := 'varDouble';     // Excel
    varCurrency  : StringTyp := 'varCurrency';   // Excel
    varDate      : StringTyp := 'varDate';       // Excel
    varOleStr    : StringTyp := 'varOleStr';     // Excel
    varDispatch  : StringTyp := 'varDispatch';
    varError     : StringTyp := 'varError';
    varBoolean   : StringTyp := 'varBoolean';
    varVariant   : StringTyp := 'varVariant';
    varUnknown   : StringTyp := 'varUnknown';
    varByte      : StringTyp := 'varByte';
    varWord      : StringTyp := 'varWord';
    varLongWord  : StringTyp := 'varLongWord';
    varInt64     : StringTyp := 'varInt64';
    varStrArg    : StringTyp := 'varStrArg';
    varString    : StringTyp := 'varString';
    varAny       : StringTyp := 'varAny';
    varTypeMask  : StringTyp := 'varTypeMask';
  end;

  ShowMessage('StringTyp:   ' + StringTyp);

  // Excel.Quit;                    // Excel beenden.
end;                    

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

function StrToFloatDef(const S: string; const Default: Extended;
  const AFormatSettings: TFormatSettings): Extended;
begin
  if not TextToFloat(PChar(S), Result, fvExtended, AFormatSettings) then
    Result := Default;
end;

function TryStrToFloat(const S: string; out Value: Extended;
  const AFormatSettings: TFormatSettings): Boolean;
begin
  Result := TextToFloat(PChar(S), Value, fvExtended, AFormatSettings);
end;