var
  x,y, i: integer;
  tmp: string;
  bmp: TBitmap;
begin
  //Erstelle Bitmap
  bmp := TBitmap.Create;
  try
    //Lade Breite und Höhe des eigentlichen Bildes
    bmp.Width := image_map[anz_countries].Width;
    bmp.Height := image_map[anz_countries].Height;
    //Lade Gif in Bitmap
    bmp.Assign(image_map[anz_countries-1].Picture.Bitmap);
    //Durchgehe alle angegebenen Koordinaten für die Farben
    for i := 1 to anz_colors do
      begin
        tmp := ini.ReadString('Farb-Koordinaten', inttostr(i), '0,0');
        x := strtoint( Copy(tmp, 0, pos(',', tmp) - 1) );
        y := strtoint( Copy(tmp, pos(',', tmp) + 1, maxint) );
        colors[i-1] := bmp.Canvas.Pixels[x,y];
        //Ausgabe zur Kontrolle - Testzwecke
        showmessage(ColorToString(bmp.Canvas.Pixels[x,y]));
    end;
  finally
    bmp.Free;
  end;
end;