Delphi - Revicen este código please

procedure TForm2.Button1Click(Sender: TObject);//insertar
var
a,respuesta:string;
//respuesta es la variable donde almaceno la busqueda de la consulta
begin
a:=Edit1.Text;//nrojaula que tengo en ese momento en el edit
if (Edit1.Text='') and (ComboBox1.text='') then
begin
Showmessage('Por favor rellene todos los datos');
Edit1.SetFocus;
end
else
ADOQuery1.SQL.Text:='Select Count(*)> 1 as respuesta from Jaula Where Nrojaula='+ QuotedStr(Edit1.Text)+';';
respuesta:=ADOQuery1.SQL.Text;
ADOQuery1.RowsAffected:=(respuesta);
if (respuesta=a) then
begin
Showmessage('La jaula ya existe');
edit1.SetFocus;
end
else
ADOTable1.Append;//abro la tabla
ADOTable1.Edit;//edito la tabla para la entrada de los datos
ADOTable1.FieldByName('Nrojaula').AsString:=Edit1.Text;
ADOTable1.FieldByName('Objetivo').AsString:=ComboBox1.Text;
Edit1.Text:='';
ComboBox1.Text:='';
Edit1.SetFocus;
ADOTable1.Post;//acepta los cambio
end;