Сделать поиск по последнему столбцу

begin 
ADOQuery1.Filtered:=false; 
ADOQuery1.Filter:=' "поле" LIKE '+Edit1.Text; 
if length(edit1.text)>0 then ADOQuery1.Filtered:=true; 
end;

Form2.ADOQuery1.SQL.Clear; 
Form2.ADOQuery1.SQL.Add('SELECT * FROM Астана WHERE KATINASU ZHUELILIGI=''жуп'''); 
Form2.ADOQuery1.Active:=True;

if newdate mod 3 = 1 then
Form2.Show;
Form2.ADOQuery1.SQL.Clear;
Form2.ADOQuery1.SQL.Add('SELECT * FROM [Astana] WHERE [KATINASU ZHUELILIGI]=''так''');
Form2.ADOQuery1.Active:=True;

var date: string;
TS : TStringList;
i, newdate : Integer;
begin
if (edit1.Text='Семей') then
begin
date:= DateToStr(MonthCalendar1.Date);
TS:= TStringList.Create;
TS.Delimiter:='.';
TS.DelimitedText := date;
newdate:= StrToInt(TS.Strings[0]);
if newdate mod 2 = 0 then

procedure TForm1.Button1Click(Sender: TObject);
var date: string;
TS : TStringList;
newdate : Integer;
begin
if (edit1.Text='Àñòàíà') then
begin
date:= DateToStr(MonthCalendar1.Date);
TS:= TStringList.Create;
TS.Delimiter:='.';
TS.DelimitedText := date;
newdate:= StrToInt(TS.Strings[0]);
if newdate mod 2 = 0 then
Form2.Show;
Form2.ADOQuery1.SQL.Clear;
Form2.ADOQuery1.SQL.Add('SELECT * FROM [Astana] WHERE [KATINASU ZHUELILIGI]=''æóï''');
Form2.ADOQuery1.Active:=True
else