[Страдалецъ]

Так добавьте всего одну строчку, в тот код что я вам дал ранее:

Код:

if StartSelectArea
 then if (SelectArea[High(SelectArea)].X <> X) or (SelectArea[High(SelectArea)].Y <> Y)
      then begin
           SetLength(SelectArea, Length(SelectArea)+1);
           SelectArea[High(SelectArea)] := Point(X,Y);
           Image1.Canvas.Polyline(SelectArea);
           end;

Можно еще задать цвет, стиль и толщину линии для выделения.