Lille graf spørgsmål

Hej.
Jeg har tidligere fået hjælp med noget graf her.. Er nu løbet ind i endnu et problem. Jeg har følgende kode:

var
  X, Y, I : integer;
begin
  n := StrToInt(Edit1.Text);
  X:=100;      // StartPos
  Y:=100;
  with Image1 do begin
    Canvas.MoveTo(X,Y);
    For I:=0 to n do
    begin
      case Trunc(Random(4)) of  // Enten 0, 1 2 eller 3
        0 : dec(X,15);      // Venstre
        1 : inc(X,15);      // Højre
        2 : dec(Y,15);      // Op
        3 : inc(Y,15);      // Ned
      end;
      //Canvas.MoveTo(X-1,Y-1);  // Hvis denne linie medtages tegnes prikker
      Canvas.LineTo(X,Y);
    end;
  end;
end;

Har også andet kode men spørgsmålet er: Jeg vil gerne have startet punktet til at være en rød dot(punkt) som kan ses, og det samme med slut punktet. Plus vil jeg gerne lige have mine punkter større så de kan ses.