procedure Tform1.picklistadd(s:string);
var i:integer ;
begin
with form1.query1 do
begin
close;
sql.Clear ;
sql.Add(s);
open;
if form1.query1.IsEmpty=false then
begin
form1.query1.First ;
for i:=0 to form1.query1.RecordCount-1 do
begin
dbgrid1.Columns[2].PickList.Add(form1.query1.Fields[0].AsString);
form1.query1.Next;
end;
end;
end;
end;