procedure TForm1.Button1Click(Sender: TObject);
var consulta: string;
begin
//Creo la consulta
consulta:='select distinct Codigo from empleado where borrado=false';
//Limpio posible consulta
query1.SQL.Clear;
//Añade la consulta al query
query1.SQL.Add(consulta);
//La ejecuto
query1.Open;
//Muestro Resultado
while not query1.Eof do
begin
showmessage(query1.FieldValues['Codigo']);
query1.next;
end;
end;
