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:

  IF NOT FileExists(dirkunden + '\Kunden.DB') THEN BEGIN                        
    with Query1 do begin                                                        
      DatabaseName := dirkunden;                                                
      with SQL do begin                                                         
        Clear;                                                                  
        Add('CREATE TABLE "Kunden.DB" (Kundennummer AUTOINC,');                 
        Add('Vorname CHAR(30),');                                               
        Add('Nachname CHAR(50),');                                              
        Add('Strasse CHAR(60),');                                               
        Add('PLZ CHAR(5),');                                                    
        Add('Ort CHAR(60),');                                                   
        Add('Telefon CHAR(30),');                                               
        Add('Telefax CHAR(30),');                                               
        Add('Handy CHAR(30),');                                                 
        Add('Firma CHAR(50),');                                                 
        Add('EMail CHAR(30),');                                                 
        Add('Bemerkung BLOB(240,1),');                                          
        Add('PRIMARY KEY(Kundennummer))');                                      
        ExecSQL;                                                                
        Clear;                                                                  
        Add('CREATE INDEX Kunden ON "Kunden.DB" (Kundennummer)');               
        ExecSQL;                                                                
        Clear;                                                                  
        Add(PChar(selectall(PChar('"' + dirkunden + '\Kunden.DB"'))));          
        Open;                                                                   
        Valuesall.Caption := IntToStr(Query1.RecordCount);                      
      end;                                                                      
    end;                                                                        
  end else begin                                                                
    Query1.SQL.Add(PChar(selectall(PChar('"' + dirkunden + '\Kunden.DB"'))));   
    Query1.Open;                                                                
    Valuesall.Caption := IntToStr(Query1.RecordCount);                          
  end;