Bereich mit Farbe füllen

[EinMannWieEineGanzeArmee]

ich bin dabei ein program zu schreiben, welches sobald man die maus anklickt genau durch diesen punkt eine zufällige linie einzeichnet.

diese linie sollte innerhalb eines vorher gezeichneten rechtecks bleiben.
zusätzlich will ich dann die entstandenen felder mit 2 unterschiedlichen farben füllen, wobei nicht die gleichen farben nebeneinander sein dürfen.

nun treten aber probleme auf, hier erstmal grob was ich schon "erreicht" habe:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 label1.Caption:=inttostr(x)+'/'+inttostr(y);
 a:=x;
 b:=y;
 d:=0;
 randomize;
 c:=random(270)+50;

with canvas do
begin
 moveto(c,d);
 lineto(a,b);

 k:=a-c;
 l:=b-d;

 moveto(a,b);
 lineto(a+k,l+b);
end;

das rechteck wird folgendermassen gezeichnet:
rectangle(320,240,0,0);


die linien gehen zwar durch den angeklickten punkt, sind aber teils zu lang und teils zu kurz.
ausserdem habe ich keine ahnung wie ich die felder
(ich gehe jetzt mal von 2 linien, also ingesamt 4 feldern aus)
dann mit 2 ver. farben collorieren soll?!
dafür gibt es doch bestimmt einen einfachen befehl, oder?!

wäre super, wenn mit jemand helfen könnte!



[i][edit=sakura] Statt kann man hier auch [delphi] schreiben Mfg, sakura[/edit]