Easier coded then said in English:
[pascal]SpeedX:= SpeedX + acceleration * cos(Angle);
SpeedY:= SpeedY + acceleration * sin(Angle);
ShipX := ShipX + SpeedX;
ShipY := ShipY + SpeedY;[/pascal]