Por favor vejam oq está errado nesse código.

Falta o ; na linha d cima!!!

Você esqueceu de colocar uma virgula depois do =´não´;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Query1.Sql.text := ´select * from clientes where pago = ´não´´;
while not Query1.eof do
Begin
NMSMTP1.Port:= 25;
NMSMTP1.Host:= smtp.toquetoldos.com.br;
NMSMTP1.UserID:=leandro@toquetoldos.com.br ;
NMSMTP1.PostMessage.FromAddress:=leandro@toquetoldos.com.br;
NMSMTP1.PostMessage.ToAddress.add(Query1.fieldbyname(Email).asstring);
NMSMTP1.PostMessage.Subject:=Cobrança;
NMSMTP1.PostMessage.FromName:=Leandro;
NMSMTP1.PostMessage.Body.assign(memo1.Lines);
NMSMTP1.Connect;
NMSMTP1.SendMail;
NMSMTP1.Disconnect
Query1.next;
end;
end;

Miguinho...Voce não tá abrinco a sua consulta...só tó atribuido o frase sql..msa, onde está o QUERY.EXECUTE ou QUERY.OPEN??

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Query1.Sql.text := ´select * from clientes where pago = ´ + QuotedStr(´não´);
Query1.Open;
try
NMSMTP1.Port:= 25;
NMSMTP1.Host:= smtp.toquetoldos.com.br;
NMSMTP1.UserID:=leandro@toquetoldos.com.br;
NMSMTP1.Connect;
try
NMSMTP1.PostMessage.FromAddress:=leandro@toquetoldos.com.br;
NMSMTP1.PostMessage.Subject:=Cobrança;
NMSMTP1.PostMessage.FromName:=Leandro;
NMSMTP1.PostMessage.Body.assign(memo1.Lines);
while not Query1.eof do
begin
NMSMTP1.PostMessage.ToAddress.Clear;
NMSMTP1.PostMessage.ToAddress.add(Query1.fieldbyname(Email).asstring);
NMSMTP1.SendMail;
Query1.next;
end;
finally
NMSMTP1.Disconnect;
end;
finally
Query1.Close;
end;
end;