1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function StringToSec(sTime: String): extended;
var sInt : String;
    z : Integer;
begin
  Result := 0;
  for z := 1 to Length(sTime) do
    if sTime[z] in ['0'..'9'] then
     sInt := sInt+sTime[z]
     else
       begin
       if sInt <> '' then
         case sTime[z] of
           'h' : Result := StrToInt(sInt)*3600;
           'm' : Result := Result+StrToInt(sInt)*60;
           's' : Result := Result+StrToInt(sInt);
           'z' : Result := Result+StrToInt(sInt)/1000;//Millisekunden
         end;
       sInt := '';
       end;
end;					

1:
2:
3:
4:
5:
6:

var sec : Extended;
//...
  sec := StringToSec('Vorbereitung: 2h 11s, Nachbearbeitung: 48m 23s');
//...oder auch einen Memoinhalt
  sec := StringToSec(Memo.Text);
  showmessage('Summe: '+FloatToStr(sec)+' Sekunden.');