help s delphi... =S

Ljudi, pliz pomogite.. 4to u menja nepraviljno.. ja v delphi rabotaju s bazoj dannih... mne nuzna knopo4ka 'poisk', 4to bi 4to-to konkretnoe najti v baze, no ona ne rabotaet, pomogite, tiknite nosom - gde nepraviljno...

kod knopki:

procedure TForm1.Button1Click(Sender: TObject);
var
KL_vards: string[25];
begin
KL_vards:=InputBox('Panemam info na DB',
'Noradiet vardu.', '');
if KL_vards <> '' // lietotajs ievada vardu
then
begin
with form1.Query1 do begin
Close; // cae?uou oaee-?acoeuoao auiieiaiey i?aauaouaai cai?ina
SQL.Clear; // oaaeeou oaeno i?aauaouaai cai?ina
// caienuaaai iiaue cai?in a naienoai SQL
SQL.Add('SELECT , KL_vards, KL_uzvards, Tel, Pak_veids');
SQL.Add('FROM ":STANDARD1:adaptivas.db"');
SQL.Add('WHERE');
SQL.Add('(KL_vards = "'+ KL_vards + '")');
SQL.Add('ORDER BY Kl_vards');
Open; // aeoeaece?oai auiieiaiea cai?ina
end;
if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1 // ioia?aceou ?ac-o auiieiaiey cai?ina
else begin
ShowMessage('DB nav pierakstus ar tadiem Vardiem un uzvardiem');
DataSource1.DataSet:=Table1;
end;
end;
end;

На первый взгляд ненужная запятая в "SQL.Add('SELECT , KL_vards, KL_uzvards, Tel, Pak_veids');" (после SELECT)
Во-вторых, уберите with и напишите без него.
В-третьих, "form1.Query1" form1. убрать. Не гоже использовать имя класса в его реализации.
В-четвертых, дайте другие имена переменным, а то путаница с KL_vards.
И в-пятых, не ясно зачем вообще:

if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1 // ioia?aceou ?ac-o auiieiaiey cai?ina
else begin
ShowMessage('DB nav pierakstus ar tadiem Vardiem un uzvardiem');
DataSource1.DataSet:=Table1;

[sflash]

А можно вообще то и свойство Query1.Locate использовать или параметр Query1.Filtered - имхо проще