Delphi - mostrar el resultado de una consulta SQL en varios Edit.

Dim miclase2 As New conexion2

Dim DsPersonas2 As New DataSet

DsPersonas2 = miclase2.TraeDataset("SELECT nom_cli,apell_cli,tel_cli,dir_cli,cuiud_cli FROM tbla_clientes WHERE codigo_cliente=" & txtCodigoClienteEnviado.Text & "")

If DsPersonas2.Tables(0).Rows.Count > 0 Then

	txtEnviadoA.Text = DsPersonas2.Tables(0).Rows(0).Item(0).ToString

	txtTelefonoEnviadoA.Text = DsPersonas2.Tables(0).Rows(0).Item(1).ToString

	txtDireccionEnviadoA.Text = DsPersonas2.Tables(0).Rows(0).Item(2).ToString

	'

	txtCiudadEnviadoA.Text = DsPersonas2.Tables(0).Rows(0).Item(3).ToString

End If

Query1.Close;

Query1.Sql.Clear;

Query1.Sql.Add('SELECT nom_cli,apell_cli,tel_cli,dir_cli,cuiud_cli FROM tbla_clientes WHERE codigo_cliente=' + edit1.Text);

Query1.Open;

If not Query1.Eof then begin

  Edit2.Text := Query1.FieldByName('nom_cli').AsString;

end;