我要获得所有MDI子窗体的Caption,怎么做呢?(100分)

请给我一个例子,谢谢...

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to MDIChildCount-1 do
with MDIChildren do
ShowMessage(Caption);
end;

当然Form1的FormStyle:=fsMDIForm;

接受答案了.

以下代码供参考：
function EnumChildWindowsProc(H: HWnd; TF: TMainform): Boolean; stdcall;//回调函数
var
Buffer: array[0..255] of Char;
begin
Result := True; //返回True才会继续查找下一个
if (GetWindowText(H, Buffer, 255)>0) then//得到窗口的Caption
TF.listbox1.Items.Add(StrPas(Buffer));
end;

procedure TMainForm.ToolButton1Click(Sender: TObject);
begin
EnumChildWindows(Handle, @EnumChildWindowsProc, Longint(Self));
end;