probleme mit farbveränderung in einem bitmap!!!!

[heiopei]

mittach,
ich möchte eine prozedur schreiben, die als input zwei word-werte(länder-id) überwiesen bekommt (und ob der farbwert zurrückgesetzt werden soll). ich möchte diese prozedur dazu verwenden, dass der benutzer in meinem programm auf eine karte klickt und somit das angeklickte land (jedes land hat seine eigene farbe) farblich hervorhebt. (zurückgesetzt werden muss, wenn bereits ein land markiert ist)

also ich hab mir jetzt folgendenden code zusammengebastelt und festgestellt, dass da irgendwo n hund drin ist:

Delphi-Quellcode:

procedure Tfrmmain.sign_land(landold, landnew: Word; setback: Boolean);
var
  x, y: Word;
  row: PRGBQuad;
begin
  if setback = true then
  begin
    for y := 0 to imgmap.Picture.Bitmap.Height - 1 do
    begin
      row := imgmap.Picture.Bitmap.ScanLine[y];
      for x := 0 to imgmap.Picture.Bitmap.Width - 1 do
      begin
        if (row.rgbBlue = 0) and (row.rgbGreen = 0) and (row.rgbRed = 255) then
        begin
          row^.rgbBlue := colors[landold - 1].rgbBlue;
          row^.rgbGreen := colors[landold - 1].rgbGreen;
          row^.rgbRed := colors[landold - 1].rgbRed;
        end;
        inc(row);
      end;
    end;
  end;
  for y := 0 to imgmap.Picture.Bitmap.Height - 1 do
  begin
    row := imgmap.Picture.Bitmap.ScanLine[y];
    for x := 0 to imgmap.Picture.Bitmap.Width - 1 do
    begin
      if (row.rgbBlue = colors[landnew - 1].rgbBlue) and
          (row.rgbGreen = colors[landnew - 1].rgbGreen) and
          (row.rgbRed = colors[landnew - 1].rgbRed)  then
      begin
        row.rgbBlue := 255;
        row.rgbGreen := 0;
        row.rgbRed := 0;
      end;
      inc(row);
    end;
  end;
end;

kann mir da jemand helfen?!? - ich vermute dass da n gravierender pointerfehler drin is

ps: die karte schaut danach bunt gestreift aus