Не совсем работает. Под темой не тот цвет все-таки дает, зараза.
Но это лучший вариант на данный момент.
Для тех, кто в будущем захочет воспользоваться этим способом.
Правильный код вот:
Код:
var
AFormImage : TBitmap;
begin
Edit1.BorderStyle:=bsNone;
AFormImage := GetFormImage;
Edit1.Color := AFormImage.Canvas.Pixels[PageControl1.Left + TabSheet1.Left, PageControl1.Top + TabSheet1.Top];
AFormImage.Free;