min:=mas[1]; / представим что мин.число равно минэлементу.

fam:=edit1.Text;
imja:=edit2.Text;
otch:=edit3.Text;
with form2.query1 do begin //начало выполнения запроса
close;//Закрыть файл результат выполлнения предыдущего запроса
sql.Clear; //очистить поля предыдущего запроса
//записываем новый запрос в свойство SQL
sql.Add('select Фамилия,Имя,Отчество');
Sql.Add('form "Telef_Kniga.DB"');
SQL.Add('ORDER BY fam,Imja,Otch');
open; //старт выполнения запроса

if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1 // отобразить рез-т выполнения запроса
else begin
     ShowMessage('В БД нет записей, удовлетворяющих критерию запроса.');
     DataSource1.DataSet:=Table1;
     end;  
end; //конец выполнения запроса