Convertir min:seg:mil a milisegundos.

[marcoszorrilla]

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.