delphi if语法,弹出提示框,不等于写法,判断是否为空

初学Delphi

procedure TFrmLltj.cbb_xxlkChange(Sender: TObject);
begin
       if Trim(cbb_xxlk.Text)<>'' then
         begin
           Showmessage('没空');
         end   else
           Showmessage('空了');
         end;
end.

if语法:
if .. then
  begin
   
  end   else
   
  end;
弹出提示框:Showmessage('');
不等于写法:<>

黑色头发:http://heisetoufa.iteye.com/