[Alegun]

Ну тогда немного G-кода

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
 s:= MaskEdit1.Text;
 if s[Length(s)]= 'S' then
 Label1.Caption:= '-'
 else
 Label1.Caption:= '';

 Label1.Caption:= Label1.Caption +
 FloatToStr(StrToFloat(s[1]+s[2])+
 StrToFloat(s[4]+s[5]+','+s[7])/60);
end;