dterminar si los datos que se van a enviar ya existen

[douglas]

buenas chicos, aqui miren sigo molestandolos y molestandolos, pero bueno espero que almenos todas mis dudas las aproveche otras personas que foreen, al igual que las aprovecho yo, disculpen la molestia, pero hago lo siguiente, supuestamente para ver si la fecha ya existen en esa tabla, si ya existe que tire un mensaje diciendo que no puede almacenar, y si no existe que almacene, pero no funciona, y no me tira ningun mensaje, perdon chicos, pero me quede crudo con las ideas, les dejo aqui el codigo para que los inspeccionen:

Código Delphi [-]
procedure TForm3.Button2Click(Sender: TObject);
var
temp:integer;
a:string;
begin
     dbtext1.Field.Text:=getlocald;
     query2.Active:=false;
     query2.SQL.Text:='select fecha from ciber';
     query2.Active:=true;
     while not query2.Eof do
     begin
          a:=query2.Fields[0].Text;
          if dbtext1.Field.Text=a then
          begin
               showmessage('NO SE ACEPTA DUPLICIDAD DE DATOS');
          end
          ELSE
          begin
               table2.Append;
               showmessage('TODOS LOS DATOS FUERON ALMACENADOS EXITOSAMENTE');
          end;
          query2.Next;
     end;
end;

espero no ponerlos en muchas molestias, de antemano les agradezco por la ayuda y tambien por todas las veces anteriores que me han ayudado.