Надо разделить их на отдельные числа, умножить, а потом собрать обратно.
Примерно так:
Код:
var
I : Integer;
L : TStringList;
begin
L := TStringList.Create;
L.Text := StringReplace(Edit1.Text,'/',#13#10,[rfReplaceAll]);
Edit1.Text := '';
For I := 0 To L.Count-1 Do
Edit1.Text := Edit1.Text + FloatToStr(StrToFloat(L[i])*100) + '/';
L.Free;
end;
"Допилишь" код до нормального состояния сам.