1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

  wnd :=  FindWindow('ThunderRT6Form', 'Gesprächsmonitor - Vertical TeleVantage ViewPoint');
  wnd :=  FindWindowEx(wnd, 0, 'ABSDynaBarCls', nil);
  wnd :=  FindWindowEx(wnd, 0, 'ThunderRT6PictureBox', nil);
  wnd :=  FindWindowEx(wnd, 0, 'ThunderRT6UserControl', nil);
  wnd :=  FindWindowEx(wnd, 0, 'ThunderRT6UserControl', nil);
  wnd :=  GetWindow(Wnd, GW_HWNDNEXT);
  wnd :=  FindWindowEx(wnd, 0, 'ThunderRT6UserControl', nil);
  wnd :=  FindWindowEx(wnd, 0, 'ABSDynaBarCls', nil);
  wnd :=  FindWindowEx(wnd, 0, 'ThunderRT6PictureBox', nil);
  wnd :=  FindWindowEx(wnd, 0, 'ThunderRT6UserControl', nil);
  wnd :=  FindWindowEx(wnd, 0, 'VSFlexGrid', nil);


  if wnd <> 0 then
  begin
    SendMessage( wnd, WM_VSCROLL, SB_BOTTOM, 0);
    iPos := GetScrollPos(wnd,SB_VERT);
  end;                    

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender:TObject);
begin
  //dein source
end;