1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
stName,text_t:string;
begin
stName:='';
 text_t:='Bitte Stücklistennummer  eingeben';
if InputQuery(text_t,'',stName)then

Query.sql.Text:='Select lager.* From stueckliste inner join lager on stueckliste.pos = lager.pos and stueckliste.znr =  Quotedstr(stName)';
Query.active:=true;
end;					

1:
2:
3:
4:
5:
6:
7:

  if InputQuery(text_t, '', stName) then  
  begin
    Query.SQL.Text:=
      'SELECT lager.* FROM stueckliste inner join lager on stueckliste.pos = lager.pos'+#13#10+
      Format('WHERE (stueckliste.znr=%s)', [Quotedstr(stName)]);  
    Query.Open;
  end else ShowMessage('Keine Nummer angegeben!`);