[Assistant]

цель задания правда до конца не понял, понял только про чтения значений из Лабелов, а для чего - не понял
проверка всех Label'ов в своем приложении:

Код:

var
  i: integer;
begin
  for i:=0 to ComponentCount-1 do
  begin
    if Components[i].ClassName = 'TLabel' then
      if (Components[i] as TLabel).Caption = 'Label1' then
      begin
        ShowMessage('текст найдет в: ' + (Components[i] as TLabel).Name);
        Exit;
      end;
  end;

а дальше додумай сам. Да поможет тебе FindWindow и т.д.