[Aristarh Dark]

Код:

var
  a,b:integer;
  c:Single;
  s:string;
begin
  ...
  s:=[тут твой DataSet].FieldByName('DDD').AsString;
  a:=StrToInt(copy(s,1,4));
  b:=StrToInt(copy(s,6,1));
  c:=a/b;
//как вариант, без a,b
  c:=StrToInt(copy(s,1,4))/StrToInt(copy(s,6,1));
//Можно и без s, сам догадайся как :)
end;