Código Delphi [-]
//asi es como agrego nuevos datos a mi tabla  q seria mi Form1 de Registro
procedure TForm1.BitBtn5Click(Sender: TObject);//boton de nuevo registro y guardar
begin
table1.Insert;
end;

//asi es como realizo una busqueda de la misma tabla q seria mi Form2 de Busqueda
procedure TForm2.BitBtn1Click(Sender: TObject);//boton de busqueda
begin
if edit1.Text<>'' then
begin
  if radiobutton1.Checked=true then
begin
  query1.Active:=false;
  query1.SQL.Text:='select * from Libro where codigo_libro='+edit1.Text+'';
  query1.Active:=true;
end;

//Form3 -->una vez realizada la busqueda envio el codigo a la form4 asi::
procedure TForm3.BitBtn2Click(Sender: TObject);//este es mi boton para enviar el codigo
begin
form4.Query1.Active:=false;
form4.Query1.SQL.Text:='select * from libro where codigo_libro='+edit1.Text+'';
form4.Query1.Active:=true;
form4.show;
end;

//y en la form4 mi cod para querer guardar los datos modificados es asi:
procedure TForm4.BitBtn1Click(Sender: TObject);//este es mi boton de guardar
begin

  query1.Active:=false;
  query1.SQL.Text:='update Libro set nombre_libro=:'''+DBEDit2.Text+''' where codigo_libro=:'+DBEdit1.Text+'';
  query1.ExecSQL;
  query1.Active:=true;
end;

//mi query en la form4 sus propiedades esta modificado asi:
object Query1: TQuery
    Active = True
    AutoRefresh = True
    DatabaseName = 'Biblioteca'
    RequestLive = True
    SQL.Strings = ('SELECT * FROM LIBRO;')

Código Delphi [-]
'select * from Libro where nombre_libro='E''#$D#$A

Código Delphi [-]
'select * from Libro where nombre_libro='E''#$D#$A

Código Delphi [-]
'select * from Libro where codigo_libro='edit1.text'';