Incompatible Types: ´String´ and ´TStrings´

Blz ae ?!?!

To com um dúvida boba.. tipico de programador inxeperiente... (não liguem para minhas perguntas estúpidas :roll: )

To querendo jogar num showmessage, para testar, o sql q foi montado...
tem como? fiz isso:

procedure TGeraRelatorio.Button1Click(Sender: TObject);
begin
With QConsultaEvento Do
begin
Sql.Clear;
Sql.Add ( ´select * from CBCONTR Where CBDATA = ´+(DateToStr (DateEdit1.Date)) +´´);
QConsultaEvento.Open;
showmessage (QConsultaEvento.SQL); // ERRO AQUI!!!!! :!:
If QConsultaEvento.IsEmpty Then
begin
ShowMessage (´Não há dados nesta data!´);
end else begin
RelConvoc.Sctvarlabel1.Caption := (´Relatório - Convocação do dia ´+ DateToStr (DateEdit1.Date));
RelConvoc.SctReport1.Run;
end;
end;


Valeu desde já!