АЛГОРИТМ

repeat
{
FI_MIN, FI_MAX - минимальный и максимальный угол, на который может повернуться муравей
R_MIN, R_MAX - минимальное и максимальное расстояние, которое может преодолеть муравей за одну итерацию
}
  Fi := FI_MIN + FI_MAX * Random(360) / 360;
  R := R_MIN + Random(R_MAX);

{Пока не достигнет края экрана}

until (PenPos.X + Round(R * cos(Fi)) < PaintBox.Width) and
      (PenPos.Y + Round(R * sin(Fi)) < PaintBox.Height);
{ Прорисовка линии }
LineTo(PenPos.X + Round(R * cos(Fi)), PenPos.Y + Round(R * sin(Fi)));