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

function TForm1.MyDateTime(S, MyMask, StaticMask: String): String;
var i, ii: Word;
begin
  result:= '';
  for i:= 1 to Length(MyMask) do
    for ii:= 1 to Length(StaticMask) do
      if UpperCase(MyMask[i]) = UpperCase(StaticMask[ii]) then begin
        result:= result+ S[ii]; // Wert übernehmen
        StaticMask:= StringReplace(StaticMask, StaticMask[ii], '*', [rfIgnoreCase]);
       end else if (MyMask[i] = '.') or (MyMask[i] = ':') then begin
        result:= result+ MyMask[i]; // Trenner übernehmen
        break; // innere Schleifen vorzeitig beenden
      end;
end;					

1:

MyDateTime(Text, 'DD.MM.YYYY HH:NN:SS', 'YYYYMMDD HHNNSS');