E2010 Incompatible types: 'PAnsiChar' and 'PWideCha

[chunyingjun7212]

procedure TFrmMain.SendString(const Str: string);
begin
Comm1.WriteCommData(PChar(Str), Length(Str)) then
begin
FTXNum := FTXNum + Cardinal(Length(Str));
ShowTX;
end;
end;