Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
h,m,s,ms:Word;
begin
m :=StrToInt( copy(maskedit1.text,1,2))*60*1000;
s :=StrToInt( copy(maskedit1.text,4,2))*1000;
ms:=StrToInt( copy(maskedit1.text,7,3));
ms:=ms+m+s;
ShowMessage('Milisegundos:'+IntTostr(ms));
end;
Para asegurarte que las posiciones sean correctas es mejor que pongas la máscara con 00 así obligas a que introduzcan siempre los 7 dígitos:
00:00:000
Un Saludo.