TComPort Problem

[Muellermilchtrinker]

Mit dem Beispiel klappts auch. Doch ich möchte das nicht mit der Terminalkomponente machen sondern einfach nur mit Comport.
So ist mein Code vom Button:

Delphi-Quellcode:

var s:ansistring;
begin
comPort1.Write(pchar(edit1.Text),1);
comport1.Write(#13,1);
s := ansistring(edit2.Text);
comport1.WriteStr(s);
comport1.Write(#13,1);

Edit1.Text = 2
Edit2.Text = &B00110011
Im Terminal siehts dann so aus:

Code:

feld>2
muster>&B
feld>

Aber bei Muster sollte der ganze Text ausm Editfeld stehen.