MSAgent中的精灵只能读edit,不能读memo中的英文？

[sghff110]

procedure TForm1.Button2Click(Sender: TObject);
var
string;
begin
s:=edit1.Text ;
edit1.Refresh ;
Vrgirl.Speak(s,'');
end;//我已用此让卡通小人发出声音说每次edit中输入的英文了。

可是我想让其说memo中的英文，就出现异常，看以下代码：
procedure TForm1.Button3Click(Sender: TObject);
var
string;
begin
memo1.Clear ;
s:=memo1.Lines.Text;
memo1.Refresh ;
Vrgirl.Speak(s,'');
end;
{EOLeException with message‘参数不正确’。不知句子错在哪里？}

[xutaiqing]

memo1被你清空了，还读什么。而且你用s:=memo1.Lines.Text也有问题吧，应该用个循环一行一行取出来。