EnumChildWindows

[xexxex]

Набросал вот как пример, подправь под себя

function GetWndText(Wnd: HWnd): String;
begin
     if Wnd = 0 then Exit;
  SetLength(Result, SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0));
  SendMessage(Wnd, WM_GETTEXT, Length(Result)+1, Longint(PChar(Result)));
end;

////////////////////
procedure GetStaticValues(Dlg: HWnd; List: TStringList);
const
  StaticIDs: array[0..5] of Integer = (1234,134,2345,567,4568,1234);
var J: Integer;
begin
  for J := Low(StaticIDs) to High(StaticIDs) do
    List.Add(GetWndText(GetDlgItem(Dlg, StaticIDs[J])));
end;

///////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
var List: TStringList;
begin
  List := TStringList.Create;      
  try
    GetStaticValues(FindWindow('wndclass', 'wndtitle'), List);
    ShowMessage(List.Text);
  finally
    List.Free;
  end;
end;

[BoozZzilla]

за GetWndText спасибо ))
очень поучительно, но я не буду собирать значения одновременно со всех окошек, мне в один момент нужно будет одно.
Порывшись у вас на форуме для сбора дескрипторов состряпал вот такое:

procedure TForm1.FormCreation(Sender: TObject);
begin
StaticHndEnum([$000003ea,$000003ef.....$00000400]);
end;

procedure TForm1.StaticHndEnum(const StaticID: array of Cardinal);
var
i: integer;
begin
for i:= Low(StaticID) to High(StaticID) do
StaticHnd[i]:=GetDlgItem(MainDlg,StaticID[i]);
end;