Перевести секунды в мелесекунды

[Crivel]

У меня такая проблема, вообщем, программа запрашивает у пользователя ввести секунды, как он их ввёл и нажал на кнопку, то программа переводит эти секунды в мели секунды и записывает в файл, но проблемма что когда программа переводит, то переводит она не правильно!

Inter := Integer(Edit2.Text);
Inter := Inter*1000;

А получаются какието отрицательные числа!

[eoln]

Inter := StrToInt(Edit2.Text);

[prog38]

У меня работает:

procedure TForm1.Button1Click(Sender: TObject);
var sec,ms:integer;
begin
  sec:=StrToInt(edit1.Text);
  ms:=sec*1000;
  edit2.Text:=IntToStr(ms);
end;

end.

[Crivel]

eoln, спасибо большое!

prog38, я уже понял

[Alter]

Можно короче записать:

procedure TForm1.Button1Click(Sender: TObject);   
begin   
  Edit2.Text:=IntToStr(StrToInt(Edit1.Text)*1000);   
end;