Чтобы отследить какие были приложения активны, а именно процессы, нужно на форме разместить компонент ListBox и Timer с вкладки System. Для Timer прописать следующий код:
Timer1->Interval=5000;
HANDLE hWnd;
hWnd = GetForegroundWindow();
char szTitle[41] = {0};
GetWindowText(hWnd,szTitle,40);
ListBox1->Items->Add(AnsiString(szTitle));
Каждые 5 секунд программа будет отслеживать какие приложения были активны и записывать их в компонент ListBox.