Solucionado men, lo hecho asi y rula a la perfeccion:
Código Delphi
[-]var
ms,m,s:word;
total:integer;
begin
m :=StrToInt( copy(maskedit1.text,1,1))*60*1000;
s :=StrToInt( copy(maskedit1.text,3,2))*1000;
ms:=StrToInt( copy(maskedit1.text,6,3));
total:=ms+m+s;
ShowMessage('Milisegundos:'+IntTostr(total));
Gracias de nuevo y Salu2.CRIS.