请问用Delphi如何实现EnumWindows，请给出具体代码。

function EnumWindowsProc(hwnd:HWND;lParam:DWORD ):boolean; stdcall;
var
        szCaption: array[0..256] of Char;
begin
        GetWindowText(hwnd,szCaption,127);        if length(szCaption)>0 then
        begin
                showmessage(szCaption);
        end;        result:= TRUE;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
    EnumWindows(@EnumWindowsProc, 0);
end;