StrToFloatDef jako StrToFloat

Programiści ! Pomóżcie początkującemu zapisać funkcję w Delphi StrToFloatDef z użyciem StrToFloat - tzn. zrobić taką funkcję z użyciem StrToFloat aby wykonywała na 'piechotę' to samo co StrToFloatDef - ponieważ ona nie występuje w Delphi 3 i bardzo proszę o łopatologiczne rozwiązanie. [???]

unit SysUtils;

//...

function StrToFloat(const S: string;
  const FormatSettings: TFormatSettings): Extended;
begin
  if not TextToFloat(PChar(S), Result, fvExtended, FormatSettings) then
    ConvertErrorFmt(@SInvalidFloat, [S]);
end;

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

Dziękuje za odpowiedź, próbowałem coś z helpem sklecić ale angielski nie ten a ponadto brak doświadczenia, jak mówi Tao Pang - 'programowania należy uczyć się na dobrze napisanych programach'.