procedure TMainForm.Button2Click(Sender: TObject);
var s: string;
c: char;
begin
s:=Edit1.Text;
c:=s[1];
// Send the character
if not cpDrv.SendChar( c ) then
CannotSendError;
end;