como conseguir introducir valores negativos en un edit

[haffo]

Gracias por contestar

procedure TForm1.Edit3Change(Sender: TObject);
begin
TrackBar1.Position:=strtoint(edit3.text);
ganancia := TrackBar1.Position;

Este es el código que tengo puesto, donde ganancia es una variable que no tiene nada que ver, es raro porque tengo varios scrollbar de la misma manera y funcionan bien aunque estos no tienes valores negativos.