Немогу найти ошибку

[gufon]

Вот есть строка

 Memo1.Lines.Add('<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="350" height="30"><param name=movie value="mp3.swf"><param name=quality value=high><param name="flashVars" value="mp='+Edit1.Text+'"><embed  FlashVars="mp='+Edit1.Text+'" src="mp3.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="350" height="30"></embed></object>');

ругается на вставку

'+Edit1.Text+'

Memo1.Lines.Add('<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="350" height="30">');
 Memo1.Lines.Add('<param name=movie value="mp3.swf"><param name=quality value=high><param name="flashVars" value="mp='+Edit1.Text+'">');
 Memo1.Lines.Add('<embed  FlashVars="mp='+Edit1.Text+'" src="mp3.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="350" height="30"></embed></object>');

О так работает


Ладно а как тогда взять из буфера текст это вместо Edit1 и поместить в буфер эти 3 строки это Memo1, Хочу сделать чтоб только кнопка была

Удаляйте тему я разобрался могу дать исходник, вот это все

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
Edit1.Text:=Clipboard.asText;
Memo1.Lines.Add('<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="350" height="30">');
Memo1.Lines.Add('<param name=movie value="mp3.swf"><param name=quality value=high><param name="flashVars" value="mp='+Edit1.Text+'">');
Memo1.Lines.Add('<embed  FlashVars="mp='+Edit1.Text+'" src="mp3.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="350" height="30"></embed></object>');
Clipboard.asText:=Memo1.Lines.GetText;
end;

end.

просто на сайт добавляю треки но неудобно каждый раз вставлять туда сюда, вот думаю сделать в цикле чтобы программа была свернута, а я в буфер засунул ссылку и забрал готовый код

[asmodey1]

Прошу удалить.