como conseguir introducir valores negativos en un edit

[Ruben_Cu]

Hola, tengo la impresión que estás utilizando el evento OnChange del Edit u otro relacionado con teclas pero mal configurado.
El evento OnChange no lo puedes usar puesto que en cuanto introduzcas el signo '-' te lanzará el error que te aparece.
Creo que quieres mover el trackbar al valor introducido en el edit para ello podrías usar un botón para cuando coloques el número completo disparar el evento OnClick, algo como:

procedure TForm1.Button1Click(Sender: TObject);
begin
        trackbar1.Position:=StrToInt(edit1.Text);
end;

o, por ejemplo con la tecla enter:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        if key=vk_return then trackbar1.Position:=StrToInt(edit1.Text);
end;

Espero que ahí ande tu solución.
Saludos