"Eof in string detected" hatası

[Serim]

mrb arkadaşlar,
kategoriye göre mail göndermek istiyorum. bunun için aşağıdaki gibi bir fonksiyon kullandım :

Kod: Tümünü seç

{$H+}function Tdosyaform.KategoriMail(aSecim: boolean): string;{$H-}
{$H+}var sTmp:string;{$H-}
begin
dm.MUSTERIDATA.close;
     dm.MUSTERIDATA.SelectSQL.Text:='Select * from MUSTERI where E_MAIL<>'' and KATEGORI='+QuotedStr(cxcombobox1.Text);
     dm.MUSTERIDATA.Open;
     dm.MUSTERIDATA.First;
     sTmp := '';

 while NOT dm.MUSTERIDATA.Eof do
  begin
     sTmp:= sTmp +';'+dm.MUSTERIDATAE_MAIL.AsString;
     dm.MUSTERIDATA.Next;
  end;
  if sTmp<>'' then
  begin
       sTmp := copy(sTmp,2,length(stmp)-1);
       Result := sTmp;
  end;
end;

Bu fonksiyonda E_MAIL<>'' kodunu eklemessem aslında çalışıyo ama email alanı boş olan kayıtlar var o yüzden gönder dediğim zaman mail gitmiyor.bu şartı eklemem lazım ama projeyi çalıştırıp gönder butonuna tıkladığım zaman aşağıdaki hatayı alıyorum:

Kod: Tümünü seç

SQL Parse Error:
Eof in string detected.

Gönder butonunun onclick olayınada aşağıdaki kodları yazdım :

Kod: Tümünü seç

procedure Tdosyaform.suiButton5Click(Sender: TObject);
{$H+}var sMailList,mail:string;{$H-}
begin
     dm.MUSTERIDATA.Active:=false;
     dm.MUSTERIDATA.Active:=true;
     label1.Visible:=true;
     label1.Caption:='Mesajınız gönderiliyor.. Lütfen bekleyiniz...';
     sMailList := KategoriMail((TButton(Sender).Tag = 1));
 showmessage(inttostr(length(sMailList))+': '+sMailList);
     mail:=girisform.Edit1.Text;
     If SendMail(memo3.Text,
              mail,
              mail,
              sMailList,
              edit3.Text,
              memo1.Text,
              memo2.Text,
              edit5.Text)
    then
        label1.Caption:='Mesajınız gönderildi... '
    else label1.Caption:='Mesajınız gönderilemedi... ';
         edit3.Clear;
         edit4.Clear;
         memo1.Clear;
end;

umarım anlatabilmişimdir, kolay gelsin..

[eduran]

sanırım şu şekilde olmalı:

Kod: Tümünü seç

'Select * from MUSTERI where E_MAIL<>'''' and KATEGORI='+QuotedStr(cxcombobox1.Text);