Components for Delphi and C++ Builder.

type
  TCustomGridEhHelper = class helper for TCustomGridEh
  private
    function GetHorzScrollBarPanelControl(): TGridScrollBarPanelControlEh;
  public
    property HorzScrollBarPanelControl: TGridScrollBarPanelControlEh read GetHorzScrollBarPanelControl;
  end;

function TCustomGridEhHelper.GetHorzScrollBarPanelControl: TGridScrollBarPanelControlEh;
begin
  Result := inherited HorzScrollBarPanelControl;
end;

procedure TForm15.Button1Click(Sender: TObject);
begin
  if not Assigned(Form16) then begin
    // Form16 := TForm16.Create(Self);
    Application.CreateForm(TForm16, Form16);
  end;
  Form16.Show;
end;

procedure TForm15.Button2Click(Sender: TObject);
begin
  if Assigned(Form16) then begin
    Form16.gridData.HorzScrollBarPanelControl.Repaint;
  end;
end;

{ TApplicationHelper }

type
  TApplicationHelper = class helper for TApplication
  private
    function GetInRemoteSession(): Boolean;
    procedure SetInRemoteSession(const Value: Boolean);
  public
    procedure RemoteSessionCheck;
    procedure RemoteSessionChange;
    property InRemoteSession: Boolean read GetInRemoteSession
      write SetInRemoteSession;
  end;

function TApplicationHelper.GetInRemoteSession: Boolean;
begin
  Result := FInRemoteSession;
end;

procedure TApplicationHelper.SetInRemoteSession(const Value: Boolean);
begin
  FInRemoteSession := Value;
end;

procedure TApplicationHelper.RemoteSessionCheck;
begin
  inherited RemoteSessionCheck;
end;

procedure TApplicationHelper.RemoteSessionChange;
var
  LMsg: TCMRemoteSessionStatusChanged;
begin
  // часть кода из TApplication
  LMsg.Msg := CM_REMOTESESSIONSTATUSCHANGED;
  LMsg.InRemoteSession := Application.InRemoteSession;
  LMsg.Unused := 0;
  LMsg.Result := 0;
  for var I: Integer := 0 to Pred(Screen.FormCount) do
  begin
    Screen.Forms[I].Broadcast(TMessage(LMsg));
  end;
end;

procedure TForm15.Button1Click(Sender: TObject);
var
  LInRemoteSession: Boolean;
begin
  if not Assigned(Form16) then
  begin
    // решает проблему тоже
    // Application.SingleBufferingInRemoteSessions := False;

    LInRemoteSession := Application.InRemoteSession;
    // решает проблему
    // если True в момент создания формы, то глюк отрисовки в rdp сессии
    Application.InRemoteSession := False;
    try
      // Form16 := TForm16.Create(Self);
      Application.CreateForm(TForm16, Form16);
    finally
      Application.InRemoteSession := LInRemoteSession;
      Application.RemoteSessionChange;
    end;

    // Application.RemoteSessionCheck;
    // Application.RemoteSessionChange;
  end;
  Form16.Show;
end;