jak przekonwertować czas z amerykańskiego na europejski?

jak w temacie.
z europejskiego na amerykański nie ma problemu ale odwrotnie jakoś nie mogę znaleźć
próbowałem łopatologicznie w ten sposób ale strtotime i tak zamienia go na am/pm...

S := FormatDateTime('HH:nn:ss ampm', Now);
if length(s)>8 then begin
    if   copy(s,10,2) = 'PM' then
         begin
         t:=strtoint(copy(s,1,2));
         t:=t+12;
         delete(s,1,2);
         s:=inttostr(t)+s;
         end;
    end;
s:=copy(s,1,8);
t1:=strtotime(s);
result:=t1;

obszedłem to w końcu zwracającą stringa zamiast ttime ale dobrze by było wiedzieć jak to powinno wyglądać :P

strzelam: StrToTimeDef() ?
zobacz w helpie dokladny opis.

//w sumie StrToTime() tez powinno zadzialac, tylko z tego co rozumiem to am/pm powinno byc na poczatku stringa, przed godzina.