AutoCrop(10, GetColorOfTopMostLeftMostPixel);

GetPredominantColorOfBorderArea(BorderAreaWidth: Integer; var SuggestedToleranceValue: Integer): TColor;

function GetColorAtTopLeft(AImageEnView: TImageEnView): TColor;
{ Get the color of the pixel at position 0,0 or the pixel at the top left of the bitmap }
begin
  Result := TRGB2TColor(AImageEnView.Layers[AImageEnView.LayersCurrent].Bitmap.Pixels[0, 0]);
end;

procedure TFormDraw.Button1Click(Sender: TObject);
var
  iColorAtTopLeft: TColor;
begin
   iColorAtTopLeft := GetColorAtTopLeft(ImageEnView1);
   Panel1.Color := iColorAtTopLeft;
end;

quote:

---

But how can I define GetColorOfTopMostLeftMostPixel?

---