var

  i: integer;

  s : string;

begin

  with FDQuery1 do begin

  SQL.Clear;

  Open;

  Memo1.Lines.Clear;

  First;

  while not FDQuery1.EOF do

  begin

    s := '';

    For i := 0 to Fields.Count - 1 do

    s := s + Fields[i].AsString;

    memo1.Lines.Add(Fields[0].Value);

    Next;

  end;

  Close;

  end;

end;