Графика, отрисовка примитива при движении мышью.

[KLOUH]

Как прорисовать прямоугольник, чтобы:
1) При прорисовке он не стирал соседние фигуры
2) Самое главное, чтобы старые линии, образованные движению мышью стирались.
3) Без API (рановато), если можно.

Вот процедура:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);

var
rect1,rect2:TRect;
Все остальные глобальные переменные.
begin
if drawing then
begin

XT:=X;
YT:=Y;
dx:=XT-X0;
dy:=YT-Y0;
rect1:= Rect(X0,Y0,XT,YT) ;
if x0>xt then begin
// rect2:= Rect(X0,Y0,XT-11,YT+11);
if y0>yt then begin rect2:= Rect(XT+dx,YT+dy,Xt-dx,Yt-dY) end
else if y0<yt then rect2:= Rect(XT+dx,YT-dy,Xt-dx,Yt+dY)
else Exit;
end

else if x0<xt then begin
if y0>yt then begin rect2:= Rect(XT-dx,YT-dy,Xt+dx,Yt+dY) end
else if y0<yt then rect2:= Rect(XT-dx,YT+dy,Xt+dx,Yt-dY)
else Exit;
end
else Exit;

//else Image1.Canvas.fillrect(rect2);;

Image1.Canvas.CleanupInstance;

end;
----
Ярослав

Image1.Canvas.fillrect(rect2);
if ((x0<>0) or (y0<>0) or (yt<>0) or (xt<>0)) then Image1.Canvas.Rectangle(rect1);
//drawing:=false;

end;

[KLOUH]

То, что я написал бред, подскажите, что принципиально другое: код программы для рисования прямоугольника мышью, с ограниченными возможностями его редактирования. ну или хотя бы без неё.