procedure TForm1.Button1OnClick;
var
E: Exception;
begin
E := Exception.Create('取消操作');
SendMessage(SocketConnection1.Handle, THREAD_EXCEPTION, 0, Integer(Pointer(E)));
// PostMessage(SocketConnection1.Handle, THREAD_EXCEPTION, 0, Integer(Pointer(E)));
end;