var
naziv_col : string;
v : string;
begin
naziv_col := c_col.Text;
v := eVrijednost.Text;
with DM,tblPKarton do
begin
DisableControls;
Close;
SQLSelect.Clear;
SQLSelect.Add('SELECT * FROM PKARTON WHERE '''+C_COL.Text+''' LIKE '''+v+'%''');
Open;
EnableControls;
end;