1:
2:
3:

SELECT ArtNr, WieViel, Einheit, WasDenn
FROM Bestell.dbf T1, Material.dbf T2
WHERE T1.ArtNr = T2.ArtNr;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

if Key = VK_F3 then
  begin
    T.DatabaseName := 'C:\BiBA\Mail\';
    T.TableName := 'Bestell.dbf';
    T.Open;
    for i := 1 to 40 do
    begin
      if TE[i].Text<>'' then
      begin
        T.Append;
        T.FieldByName('ArtNr')  .AsInteger := StrToInt(L1[i].Caption);
        T.FieldByName('Wieviel').AsInteger := StrToInt(TE[i].Text);
        T.Post;
      end;
    end;
    Form3.Memo1.Clear;
    TB := TTable.Create(form11);
    TB.DatabaseName := 'C:\BiBA\Mail';
    TB.TableName := 'Bestell.dbf';
    TM := TTable.Create(form11);
    TM.DatabaseName := 'C:\BiBA\Mail';
    TM.TableName := 'Material.dbf';
    TM.Open;
    TB.Open;
    TB.First;
    TM.SetKey;
    TM.First;
    while not TB.eof do
    begin
      TM.TableName := 'Material.dbf';
      if TM.FieldByName('ArtNr').AsString = TB.FieldByName('ArtNr').AsString then
      begin
        if Length(TB.FieldByName('Wieviel').AsString) = 1 then
          y := '  ';
        if Length(TB.FieldByName('Wieviel').AsString) = 2 then
          y := ' ';
        if Length(TB.FieldByName('Wieviel').AsString) = 3 then
          y := '';
        Form3.Memo1.Lines.Add(y+TB.FieldByname('Wieviel').AsString+' '+TM.FieldByname('Einheit').AsString
        +' '+TM.FieldByname('WasDenn').AsString);
        TB.Next;
        TM.First;
      end
      else
        TM.Next;
    end;
    Close;
    Form3.Memo1.SetFocus;
  end;