Delphi - Умножение в label

[Kusaka1984]

Доброго времени суток!У меня такая проблема, я беру значение из label1 и умножаю на edit1 (у меня в программе идёт рассчёт тонна километр) и мне надо всё это ещё умножить на 1000. Но у меня не получается сколько я не пытался.

a,j:=integer
j:=1000;
label3.Caption:=FloatToStr(StrToFloat(j)*((FloatToStr(a(strtoint(edt1.text)))));

вот это выглядит так. Помогите пожалуйста

обрывок кода для label

Form1.dbgrd1.DataSource.DataSet.First;
   s:=0;a:=0;c:=0;
   while Form1.dbgrd1.DataSource.DataSet.Eof<>true do
   begin
   t:=strtoint(Form1.dbgrd1.DataSource.DataSet.FieldByName('Кол-во рейсов').Text);
   s:=s+t;
   b:=strtoint(Form1.dbgrd1.DataSource.DataSet.FieldByName('Расстояние').Text);
   a:=a+b;
   d:=strtoint(form1.dbgrd1.DataSource.DataSet.fieldByName('ГСМ').Text);
   c:=c+d;
   Form1.dbgrd1.DataSource.DataSet.Next;
   end;

[Акрам9898]

var
  a,j: Integer;
begin
 a:= StrToInt(sLabel1.Caption);
 j:= StrToInt(sEdit1.Text);
 sLabel3.Caption:= IntToStr(a*j*1000);
end;

[Kusaka1984]

Сообщение от Акрам9898

var
  a,j: Integer;
begin
 a:= StrToInt(sLabel1.Caption);
 j:= StrToInt(sEdit1.Text);
 sLabel3.Caption:= IntToStr(a*j*1000);
end;

всё работает))) а можно пожалуйста с вами на связь выйти? а то у меня вопрос есть чтобы не писать не вам не мне)

[Serge_Bliznykov]

Сообщение от Kusaka1984

всё работает)))

отлично. Тему закрываем?!

[Kusaka1984]

угусь)можете закрывать)