[[Héctor Randolph]]

Hola ORION!

Mi propuesta es la siguiente:

Escribe el siguiente código en el evento OnChange del Componente TEdit, de esta forma no te metes en líos con OnKeyPress

Código Delphi [-]
procedure TPeliculas.TituloChange(Sender: TObject);
begin
  // ocurre el evento cada vez que cambia el texto
  with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT TITULO,GENERO,FORMATO,CLASIFIC FROM PELICULAS');
    SQL.Add('WHERE PELICULAS.TITULO STARTING WITH :Tit');
    // Envías como parámetro el texto contenido en el TEdit
    ParamByName('Tit').AsString:=Titulo.Text;
    Open;
  end;
end;

De hecho no es necesario crear el SQL en tiempo de ejecución, puedes añadir las líneas en el SQL en tiempo de diseño y después solamente cambiar el parámetro :Tit en tiempo de ejecución de la siguiente manera:

Código Delphi [-]
procedure TPeliculas.TituloChange(Sender: TObject);
begin
  with IBQuery1 do
  begin
    Close;
    ParamByName('Tit').AsString:=Titulo.Text;
    Open;
  end;
end;

Decidí utilizar un componente TIBQuery porque la idea es solamente consultar, pero obtienes el mismo resultado si utilizas un TIBDataSet.

Espero que te sea útil.

Hasta pronto.