[Страдалецъ]

Предположу, что вы наверное не просматривали весь набор возвращаемый запросом, а просто брали первую запись.
Должно быть примерно так:

Код:

AdoQuery1.SQL.Text := 'select ФИО from Сотрудник where RegDate<=:RegDate';
AdoQuery1.Parameters.ParamValues['RegDate'] := StrToDate('22.02.2011');
AdoQuery1.Open;
while not AdoQuery1.Eof
do begin
    Memo1.Lines.Add(AdoQuery1.FieldValues['ФИО']);
    AdoQuery1.Next;
    end;