Код:
Q.SQL.Text := 'select Фамилия from Таблица where НомерТелефона=:НомерТелефона';
Q.Parameters.ParamValue['НомерТелефона'] := Edit1.Text;
Q.Open;
if not Q.IsEmpty then Label1.Caption := Q.FieldValues['Фамилия'];
Только выводить то она будет первую из найденых фамилий.