end;
end;
当然上面的程序所分析的字符串（说给谁，谁说的，是否是悄悄话）都是在speak时产生的，这相当的简单：
//客户端的speak
procedure tclientmainform.button1click(sender: tobject);
var
content:string;
begin
if edit1.text='' then
begin
application.messagebox('不能发空消息。','dcomchatclient',mb_iconinformation);
exit;
end;
if length(edit1.text)>100 then
begin
application.messagebox('说话内容过长。','dcomchatclient',mb_iconinformation);
exit;
end;
if checkbox1.checked then
