Por fin señores, ya lo tengo, al final he puesto lo que dijo Roman pero modificado:
TrackBar1.Position:=StrToIntDef(edit3.text, TrackBar1.Position);
Position en vez de Min, y funciona perfectamente
.
Gracias de nuevo, nunca me cansaré de dárosla.
En cuanto a lo de cambiar el color del trackbar, sabeis cómo hacerlo.