Fórum Pesquisar nomes!!! #192289

procedure TForm1.Edit1Change(Sender: TObject);
begin
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add (´SELECT * FROM TABELA´);
   Query1.SQL.Add (´WHERE nome LIKE upper(:nome)´);
   Query1.ParamByName(´nome´).Value:= UpperCase(Edit1.Text) + ´¬´;
   Query1.Open;
end;