[lmikle]

Не совсем работает. Под темой не тот цвет все-таки дает, зараза.
Но это лучший вариант на данный момент.

Для тех, кто в будущем захочет воспользоваться этим способом.
Правильный код вот:

Код:

var
  AFormImage : TBitmap;
begin
  Edit1.BorderStyle:=bsNone;
  AFormImage := GetFormImage;
  Edit1.Color := AFormImage.Canvas.Pixels[PageControl1.Left + TabSheet1.Left, PageControl1.Top + TabSheet1.Top];
  AFormImage.Free;