var
hMain,hChild:HWND;
buffer:array[1..200] of char;
begin
hMain:=FindWindow(nil,'Form1');
hChild:=FindWindowEx(hMain,0,nil,nil);
while hChild>0 do
begin
GetWIndowText(hChild,@buffer,200);
ListBox1.Items.Add(StrPas(@Buffer));
hChild:=FindWindowEx(hMain,hChild,nil,nil);
end;
end;