procedure TForm1.Button2Click(Sender: TObject);
begin
  if Query1.Active then Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM cardmanager ORDER BY Kartya_Szam');
  Query1.Open;
end;

procedure TForm1.PopUp_AppendClick(Sender: TObject);
begin
  Query1.Append;
end;