[unko!]

procedure TForm1.Label1Click(Sender: TObject);
begin
memo1.Lines.Add('<marquee behavior="scroll" direction="down" scrollamount="5" style="position:absolute; left:130px; top:150px; width:16px; height:548px;"><span style="color: !important;">'+edit1.text+'</span></marquee>');

esa no seia la solucion :[ por que cambia todos los caracteres i al momento de ser copiados y pegados a notepad (opr ehemplo) pasarian como simples caracteres.
[lo comprobe haciendolo i el resultado fue que al momento de pegarlos al notepad salieron los caracteres ♥ como una ?]