Imprimir verso no Check Pronto Chronos

vaComm1.Baudrate := br9600;
//velocidade := 9600;
vaComm1.Parity := paNone;
//    Paridade   = 0;
vaComm1.Databits := db8;
//    DataBits   = 8;
vaComm1.Stopbits := sb1;
//    StopBits   = 1;
vaComm1.PortNum := 1; //Com1
vaComm1.Open;
i:= 0;
while i < Memo1.Lines.Count do
begin
vaComm1.WriteText(´                   ´+Memo1.lines[i]+1013);
vaComm1.WriteText(10);
i := i+1;
end;
vaComm1.Close;