Delphi эмуляция нажатия клавиш

procedure TForm1.Timer1Timer(Sender: TObject);
var
   i, j: Integer;
   Color: TColor;
   w: Word;
begin
   // Чтобы приложение не "подвисало"
   Application.ProcessMessages;
   // Загружаем рисунок из файла
   Image1.Picture.LoadFromFile('c:\1.jpg');
   // Получаем цвет пикселя по координатам X=10, Y=10
   Color := Image1.Canvas.Pixels[10,10];
   // Сверяем цвет
   IF Color <> clRed Then
   Begin
       // Эмулируем нажатием буквы
       w := VkKeyScan('D');
       keybd_event(w, 0, 0, 0);
       // Клавиши F2
       keybd_event(VK_F2, 0, 0, 0);
       // Print Screen
       keybd_event(VK_SNAPSHOT, 0, 0, 0);
   End;
end;