[Pyro]

PHP код:

procedure SendKey(h: Cardinal; key: Integer);
begin
  SendMessage(h, WM_KEYDOWN, key, 0);
  SendMessage(h, WM_KEYUP  , key, 0);
end;
//выбрать первый элемент:
  SendKey(listboxhandle, VK_HOME);
//выбрать второй элемент:
  SendKey(listboxhandle, VK_HOME);
  SendKey(listboxhandle, VK_DOWN); 


как добавляется контакт не знаю, если кнопка или toolbar, то можно найти и нажать на неё

PHP код:

//клик по кнопке на toolbar-е
procedure UClick(button: byte);
var p: TPoint;
begin
  p.x := 32*button+32; //32 – ширина кнопки
  p.y := 16;
  SendClick(UToolbar, p);
end;