1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
    s:string;
begin
Edit1.Text := s;
memo1.Clear;
Form1.ADOQuery1.SQL.Text := 'select count(Titelname) as j from titel';
Form1.ADOQuery1.Open;
n:=(ADOQuery1.FieldByName('j').AsInteger);
Form1.ADOQuery1.Close;

Form1.ADOQuery1.SQL.Text := 'select Titelname as t,Inpreten_Name as b, Cover1 as c from titel';

for i := 0 to n do
  begin
  Form1.ADOQuery1.Open;
  ADOQuery1.next;
  memo1.lines.add('' + ADOQuery1.FieldByName('b').AsString + ' ' + ADOQuery1.FieldByName('t').AsString + '');
  // --->>> IMAGE <<<---
  end;
Form1.ADOQuery1.Close;
end;