Problemas con una Consulta.

[DeLiRioS]

Hola amigos, si alquien me hecha una manita. Uso Delphi 7, y MySql, Mysql Font, mi programa al darle click al boton "buscar" me muestra el registro siguiente y no el que busco, y si le hago click nuevamente recien ahi me muestra lo que buscaba. Este es mi codigo:

procedure TFrm_Editar.Button1Click(Sender: TObject);
Begin
If (DM.Expedientes.Locate('codigo',Edt_Buscar.Text,[]) = True) Then
Begin
Edt_Causante.Text := DM.Expedientes.FieldByName('Causante').DisplayText;
End;
end;


Se los voy agradecer.