[roman]

Prueba esta función:

function StringToDate(S: String): TDate;
var
  Coma: Integer;

begin
  Coma := Pos(',', S);
  if Coma = 0 then
    raise Exception.Create('Formato inválido');

  Delete(S, 1, Coma);
  ActiveX.VarDateFromStr(S, 0, 0, Double(Result));
end;

Deberás incluir la unidad ActiveX en tu proyecto.

// Saludos