Problem bei umstellung einer funktion von Delphi in pascal

[The_Tremendous]

Habe das Problem, dass ich das in Delphi geschrieben habe, und es unter devpascal zum laufen bringen muss. Das wiederum hat aber keinen Datumstypen und ich habe keine Ahnung wie ich das umschrieben kann.

waäre cool, wenn ihr mir da helfen könntet.

Delphi-Quellcode:

function TFrmDatum.CheckString(EinleseDatum:string):TDate;
var   
  i :integer;
  s1,s2:string;  

begin   
  if (pos('.',EinleseDatum)>0) and (pos(' ',EinleseDatum)<=0) then begin  
    //wenn es 01.01.2005 ist  
    result:=StrToDate(EinleseDatum);  
  end;   

  if (pos('-',EinleseDatum)>0) then begin
   //wenn es 2005-01-01 ist
   i:=pos('-',EinleseDatum);  
   s1:=copy(EinleseDatum,1,i-1);  
   Delete(EinleseDatum,1,i);  
   i:=pos('-',EinleseDatum);  
   s2:=copy(EinleseDatum,1,i-1);  
   Delete(EinleseDatum,1,i);
   result:=StrToDate(EinleseDatum + '.' + s2 + '.' + s1);  
  end;
 
  if (pos('.',EinleseDatum)>0) and (pos(' ',EinleseDatum)>0) then begin  
    //wenn es 1. Januar 2005 ist  
    i:=pos(' ',EinleseDatum);  
    s1:=Copy(EinleseDatum,1,i-2);  
    Delete(EinleseDatum,1,i);
    i:=pos(' ',EinleseDatum);  
    s2:=Copy(EinleseDatum,1,i-1);  
    Delete(EinleseDatum,1,i);

    if LowerCase(s2)='januar' then s2:='1';  
    if LowerCase(s2)='februar' then s2:='2';  
    if LowerCase(s2)='märz' then s2:='3';  
    if LowerCase(s2)='april' then s2:='4';  
    if LowerCase(s2)='mai' then s2:='5';
    if LowerCase(s2)='juni' then s2:='6';  
    if LowerCase(s2)='juli' then s2:='7';  
    if LowerCase(s2)='august' then s2:='8';  
    if LowerCase(s2)='september' then s2:='9';  
    if LowerCase(s2)='oktober' then s2:='10';  
    if LowerCase(s2)='november' then s2:='11';  
    if LowerCase(s2)='dezember' then s2:='12';

    result:=StrToDate(s1 + '.' + s2 + '.' + EinleseDatum);
  end;
end;