Delphi - Busqueda en tabla

tengo que hacer un sistema para la facu de gestion para un video club, mi problema es: el titulo de pelicula se añade si no esta registrado, pero cuando voy añadir un nuevo registro el anterior es como si se borrara o se sobre escribe con esto , aca les dejo parte del codigo espero respuestas, ayuda lo que sea, ya no se como solucionarlo gracias
Opciones:=[LoPartialKey];
Buscar:=Pelicula.Locate(\'TITULO\',Edit2.text,Opciones);

if Buscar=False Then
begin

Pelicula.Edit;
DBEdit1.Text:=Edit2.text;
Pelicula.Post;
end

else

Application.MessageBox(\'El titulo ya se encuentra en el registro\',\'AVISO\',mb_OkCancel+mb_DefButton1);

end;
end;

En vez de poner DBEdit1.Text:=Edit2.text; deberias poner
Pelicula.FiIeldByName('TITULO').AsString := Edit2.Text;

Un pequeño detalle
Pelicula.Edit; <===========ESTAS EDITANDO EL REGISTRO
DBEdit1.Text:=Edit2.text;
Pelicula.Post;
Deberías insertar uno nuevo
Pelicula.(Append o Insert); <=======ASI AÑADES UNO NUEVO
DBEdit1.Text:=Edit2.text;
Pelicula.Post;
Suerte