delphi中的窗体如何取得焦点

delphi中的窗体怎么取得焦点
我作了一个程序，由于中间处理要一段时间，我想在处理完以后焦点在回到该程序的窗口或者用其他方法提醒用户已经处理完了，请问应该怎么做？？

[解决办法]
BOOL FlashWindowEx( PFLASHWINFO pfwi)

一般都用这个函数提示用户
[解决办法]
事件完成后给窗体发送一个消息就可以了，然后再消息里处理你的东西，比如提醒窗口，或者上面的窗口闪烁也可以！不然就将你的原来窗口置顶
[解决办法]
procedure MyForm.FashWnd;
var
fsi: TFLASHWINFO;
begin
fsi.cbSize := SizeOf(TFLASHWINFO);
fsi.dwFlags := FLASHW_TRAY;
fsi.dwTimeout := 600;
fsi.hwnd := Handle;
fsi.uCount := 2;
FlashWindowEx(fsi);
end;

[解决办法]
SetForegroundWindow(Self.Handle);