obtener campo de varios obtenidos de sql mediante un cursor

[jesusvp]

hola soy nuevo en el lenguaje delphi, trato de aprender un poco de como utilizar delphi con una conexion a una base de datos de sql server, realizando lo siguiente:
en un boton programo la declaracion del cursor y su apertura

Query1.sql.Text := 'DECLARE contact_cursor CURSOR FOR SELECT * FROM ME_INGRESO_PTO_VENTA_TJA';
Query1.ExecSQL;
Query1.sql.Text := 'OPEN contact_cursor';
Query1.ExecSQL;

y el el otro me gustaria que me diera lo obtenido por el cursor y cada uno de los campos colocarlos en un EDIT.

Query1.sql.Text := ' IF @@FETCH_STATUS = 0 BEGIN FETCH NEXT FROM contact_cursor END ELSE BEGIN CLOSE contact_cursor DEALLOCATE contact_cursor END'
Query1.ExecSQL;
***edit1.text := query1.Fields.Fields [1].Value

***en este punto es donde tengo problemas ya que quisiera que haga lo siguiente de lo obtenido con el cusor

edit1.text := campo1 (obtenido por el cursor)
edit2.text := campo2 (obtenido por el cursor)
edit3.text := campo3 (obtenido por el cursor)
l