Fórum problemas para colocar info de registro em uma edit #272492

procedure TDevolucoesdeLivros.Edit10Change(Sender: TObject);
begin
 if (Edit10.Text <> ´´) then
 begin
  DM.Query2.Close;
  DM.Query2.SQL.Clear;
  DM.Query2.SQL.Add(´SELECT * FROM livros WHERE numero = "´ + Edit10.Text + ´"´);
  DM.Query2.Open;
  if (DM.Query2.RecordCount > 0) then
  begin
   Edit1.Text := DM.Query2.FieldByName(´Nome´).Value;
   DM.Query3.Close;
   DM.Query3.SQL.Clear;
   DM.Query3.SQL.Add(´SELECT * FROM pedidos WHERE livro = "´ + Edit10.Text + ´"´);
   DM.Query3.Open;
   if (DM.Query3.RecordCount > 0) then
    Edit2.Text := DM.Query3.FieldByName(´Devolucao´).Value
   else
   Edit10.Clear; Edit1.Clear; Edit2.Clear;
  end else begin
   Edit10.Clear; Edit1.Clear; Edit2.Clear;
  end;
 end;
end;