简单问题，如何判断焦点

[qxy19980231]

一个窗口上有edit1...edit10
我想让edit5里面有内容时必须edit6里也输入内容

所以
-------------------------------------------------------------------------
procedure TCUST.Edit5Exit(Sender: TObject);
begin
if edit5.Text='' then begin
edit6.Clear;
end;
if edit5.Text<>'' then edit6.SetFocus;
-------------------------------------------------------------------------

但是当焦点从edit6离开时，我希望判断
-------------------------------------------------------------------------
procedure TCUST.Edit6Exit(Sender: TObject);
begin
if edit5.Text<>''
then begin
if edit6.Text=''
then begin
{ if edit5.SetFocus=false
then begin
if edit6.SetFocus=false
then begin
showmessage('輸入支票抬頭之後必須輸入寄送地址!');
edit6.SetFocus;
end
end
end}
end
end;
-------------------------------------------------------------------------
就是用{}括起来的部分里面 if edit5.SetFocus=false 这个是错的，如何判断当前的焦点是不是在edit5和俄edit6呢？

[gw_delphi]

if Edit1.Focused = false then
begin
//
end;

[qxy19980231]

谢谢！楼上正解！