double angle = std::atan2(position.x - destination.x, position.y - destination.y);
double dx = std::cos(angle) * speed;
double dy = std::sin(angle) * speed;
player.x += dx;
player.y += dy;

Vector2 pos;  // Позиция объекта
Vector2 dest; // Позиция места назначения

Vector2 direction = dest - pos;     // Направление движения
direction = direction.normalized(); // Делаем вектор единичным

pos += direction * speed; // Если в игровом цикле есть время, то ещё умножить на дельту времени

procedure TForm1.FormCreate(Sender: TObject);
var
posx, posy, destx, desty: Real;
dirx, diry: Real;
d: Real;
speed: Real;
begin
posx := 1; posy := 2; // Позиция объекта
destx := 4; desty := 3; // Позиция места назначения
speed := 3;

dirx := destx - posx; diry := desty - posy; // Направление движения
d := Sqrt(dirx*dirx + diry*diry);
dirx := dirx / d; diry := diry / d; // Делаем вектор единичным

posx := posx + dirx * speed;
posy := posy + diry * speed;
end;