Пример кода : Использование строк название-значение var   names  : TStringList;            // Определение нашей переменной списка строк   ageStr : String;   i      : Integer; begin   // Определение объекта списка строк, и указание нашей переменной на него   names := TStringList.Create;    // Теперь добавляем несколько названия в наш список   names.CommaText := 'Neil=45, Brian=63, Jim=22';    // И теперь находим возраст Брайена   ageStr := names.Values['Brian'];    // Показ этого значения   ShowMessage('Возраст Brian'а = '+ageStr);    // Теперь отображаем все имена и значение возраста   for i := 0 to names.Count-1 do   begin     ShowMessage(names.Names[i]+' - '+names.ValueFromIndex[i]);   end; end; Возраст Brian'а 63 Neil - 45 Brian - 63 Jim - 22

User Account Control
Do you want to allow the following program from an unknown publisher make changes 
to this computer?

var TI:TInput;
begin
TI.Itype:=0;
TI.mi.dx:= 37000;
TI.mi.dy:= 37000;
TI.mi.mouseData:=0;
TI.mi.time:=0;
TI.mi.dwFlags:=MOUSEEVENTF_MOVE+MOUSEEVENTF_ABSOLUTE;
SendInput(1,TI,sizeof(TI));
TI.mi.dwFlags:=MOUSEEVENTF_LEFTDOWN;
SendInput(1,TI,sizeof(TI));
TI.mi.dwFlags:=MOUSEEVENTF_LEFTUP;
SendInput(1,TI,sizeof(TI));
end.

SetCursorPos(500, 500);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 500, 500, 0,0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 500,500,0,0)

procedure SetKey(Key:Integer);
begin
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

begin
   SetKey(VK_LEFT);
   SetKey(VK_RETURN);
end;

GetCursorPos(A)  // узнать текущее положение мыши (где A : TPoint)
SetCursorPos(X,Y) // установить новое положение мыши
mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0) //нажать левой кнопки
mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0) //отпустить левую кнопку