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

Question

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‘参数不正确’。不知句子错在哪里？}

Answer 1

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