1、自定义一消息并发送，收到消息时显示一条信息“已收到消息”。
2、写一过程捕获鼠标的移动，并显示鼠标的位置。

显示鼠标位置
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   edit1.Text:=inttostr(x);
   edit2.Text:=inttostr(y);
end;