Colocar o DBGrid na primeira posição

SendMessage(DbGrid1.Handle,WM_VSCROLL,SB_Lineup,0);

if table1.locate(´Nome_Campo´,Edit1.Text,[LoPartialKey, 
LoCaseInsensitive]) then
  showmessage(´encontrado´)
else
  showmesage(´´Não encontrado´)

procedure TForm1.Edit1Change(Sender: TObject);
var
i:Integer;
begin
  With IBTable1 do
    Begin
      //coloquei um if then aqui...
      if Locate(´Descricao_Produto´, Edit1.Text, [loPartialKey]) then
        begin
         If Edit1.Text = FieldByName(´Descricao_Produto´).AsString then
          Begin
            Edit1.Text := FieldByName(´Descricao_Produto´).AsString;
            DBgrid1.SetFocus;
         end
       //coloquei um else aqui
       else
          begin
            //desabilita o controle consciente de dados
            IBTable1.DisableControls;
            //Foco vai temporariamente para o DbGrid
           Dbgrid1.SetFocus;
           //Executo um laço , onde os parametros vai depender do 
          //tamanho do Grid e de onde o dado localizado aparece na Grid
         //No meu PC O Dado Localizado sempre aparecia no Meio e Nunca 
        //na final 
            for i:=0 to 9 do
              begin
                 //simulo o pressionamento da tecla Down , objetivando
                //abaixar os dados da Grid . Efetuo esse deslocamento ate 
               //o dado aparecer no top da grid . por isso os parametros do 
              //Laço deve ser calculados para o seu caso 
                 keybd_event(VK_DOWN,0,0,0);
             //finalizo toda mensagem pendende
                Application.ProcessMessages;
             end;
          // o laço acima move o registro para baixo , por isso devo 
         // deslocar a edição para cima novamente
          SendMessage(DbGrid1.Handle,WM_VSCROLL,SB_Lineup,0);
         //habilito o controle consciente de dados
          IBTable1.enablecontrols;
        //retorno o foco para o edit novamente
          edit1.setfocus;
        //posiciono o ponteiro do edit
         edit1.SelStart:=length(edit1.text);
      end;
  end;
end;

If Edit1.Focused = True then 
Begin 
IBTable1.First; 
IBTable1.IndexFieldNames := ´NOME´; 

if IBTable1.RecCount > NumeroRegistrosQuePodemSerVisiveisDbGrid
  begin
    blablabla..
  end

If Edit1.Text = FieldByName(´Descricao_Produto´).AsString then
          Begin
            Edit1.Text := FieldByName(´Descricao_Produto´).AsString;
            DBgrid1.SetFocus;
         end