ActiveDelphi

[thaita]

Meus Prezados,
Tenho duas tabelas a seguir:
CREATE TABLE Editora (
ID INTEGER PRIMARY KEY AUTOINCREMENT
NOT NULL,
Nome TEXT (60) NOT NULL
);
e a outra

CREATE TABLE Livro (
ID INTEGER PRIMARY KEY AUTOINCREMENT
NOT NULL,
ID_Editora INTEGER REFERENCES Editora (ID) ON DELETE CASCADE
ON UPDATE CASCADE,
NomeLivro TEXT (80) NOT NULL,
Numero INTEGER,
Titulo TEXT (80),
Volume INTEGER
);

Preciso mostrar em um TComboBox o campo Nome da Tabela Editora no formulário
de cadastro de Livros(FrmCadastroLivros). Alguém pode me ajudar?
Usei o exemplo abaixo da internet mas esta dando erro no params (pNome).
Segue abaixo :

procedure TfrmCadastroLivro.FormActivate(Sender: TObject);
begin
inherited;
DmEditora.cdsEditora.Open;
DmEditora.cdsEditora.First;
while not DmEditora.cdsEditora.eof do
begin
ComboBox1.Items.Add(DmEditora.cdsEditoraNome.Value);
DmEditora.cdsEditora.Next;
end;
e no evento onChange do ComboBox:

procedure TfrmCadastroLivro.ComboBox1Change(Sender: TObject);
begin
inherited;
with DmEditora.sqlEditora do
begin
Close;
sql.Clear;
sql.Add('Select *From Editora where Nome = pNome');
ParamByName('PNome').AsString := ComboBox1.Text;
Open;
end;
end;
Alguém pode me ajudar? Agradeço desde já.







end;

[natanbh1]

Na instrução SQL ao informar um parâmetro acrescente antes um sinal : (dois pontos.