Delphi - funcion like

ConslQuerySql.Close;
ConslQuerySql.SQL.Clear;
ConslQuerySql.SQL.Add(\'SELECT Apellido_Pat FROM mibaseparadox\');
ConslQuerySql.SQL.Add(\'Where APELLIDO like \'+quotedstr(trim(edit1.text))+\'%\');
ConslQuerySql.Open;

a mi se me hace mas facil asi:

ConslQuerySql.Close;
ConslQuerySql.SQL.Clear;
ConslQuerySql.SQL.Add('SELECT Apellido FROM mibaseparadox ');
ConslQuerySql.SQL.Add('Where APELLIDO like :apellido');
ConslQuerySql.Params[0].AsString := Edit1.Text + '%';
ConslQuerySql.Open;

claro, debe haber mas maneras de hacerlo.